my $newname = File::Spec->catfile($mp3dir[$i],"$track. $artist - $title.mp3");
     my $oldname = File::Spec->catfile($mp3dir[$i],$mp3file[$i]);
    rename($oldname, $newname)
        or die "Couldn't rename '$oldname' to '$newname': $!";