Update MP3 tags from the command line

mp3-tag.pl

#!/usr/bin/perl -w
use Getopt::Long;
use MP3::Tag;
use strict;

my %tags;
GetOptions(
	"artist=s" => \$tags{"artist"},
	"album=s" => \$tags{"album"},
	"comment=s" => \$tags{"comment"},
	"genre=s" => \$tags{"genre"},
	"title=s" => \$tags{"title"},
	"track=i" => \$tags{"track"},
	"year=s" => \$tags{"year"}
);

my $mp3 = MP3::Tag->new($ARGV[0]) or die "Cannot open '$ARGV[0]': $!\n";
$mp3->update_tags(\%tags);
$mp3->close;