Perl script to manage an MP3 directory tree.