use strict;
use warnings;
use MP3::Info;

my $file = 'PompAndCircumstance.mp3';

my $tag = get_mp3tag($file) or die "No TAG info";

foreach my $key(keys(%{$tag}))
  {  printf("%-15s %s\n", $key, $tag->{$key}); }
  
my $info = get_mp3info($file);
print "\n";

foreach my $key(keys(%{$info}))
  {  printf("%-15s %s\n", $key, $info->{$key}); }

$tag->{YEAR} = '2001';
set_mp3tag($file, $tag);