Good idea - I wanted to point out that when checking ID3 tags using MP3::Info that you should always first make sure that there is one:

while(<FILES>) {
   my $tag = get_mp3tag($file) or next;

   # do stuff
}
[download]

otherwise you could get some nasty results. ;)

Jeff

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)