Select Code to Download

for $i (@tokens){$nn.=$tag->{$i}." $sep ";}
my $z=rindex($nn,$sep);
my $len=length $sep;
substr($nn,$z,$len+1,'');
chop $nn;
$nn.='.mp3';

use MP3::Info;
use strict; 
#
...

#using the $tag object as a hash (in hash slice form!)
print join (" - ", @$tag{@tokens}),".mp3";

unless (-e $fn) {
    print "Renamed $_ to $nn \n" if rename $_,$nn
...
    # for example ...
    push(@errors,"Tried to rename $_ to $nn, file exists\n")
}