package Rename::MP3;

require MP3::Info;

sub pre_hook {

    my $mp3 = MP3::Info::get_mp3tag($_);

    while ( my($field,$value) = each %$mp3 ) {
       ${"main::$field"} = $value;
    }
}