#!/usr/local/bin/perl
    use strict; use warnings;
    
    use MP3::Tag;
    my $mp3file = "01_rascal flatts_-_ here_comes_goodbye.mp3";
    my $dir="c:\\temp\\music\\";
    my $file="${dir}${mp3file}";
    my $mp3 = MP3::Tag->new($file);
    my ($title, $tracknum, $artist, $album) = $mp3->autoinfo();
    
    print "Artist is $artist\n";
    print "Album is $album\n";
    print "Title is $title\n";
    print "Tracknum is $tracknum\n";

    if ($title && $artist) {
      print "OK\n";
     my $rename_to="${dir}${artist}_${title}.mp3";
      rename($file, "${rename_to}") or warn "Couldn't rename $file to $rename_to: $!\n";
    }