find2perl . -depth -eval 'my $t; -f and /\.mp3$/i and $t = get_mp3tag($_) and rename $_, "$t->{ARTIST} - $t->{TITLE}.mp3"' |perl -MMP3::Info