#I create my file list with 
my (@filelist) = @ARGV; 

##</code><code>##

my $mp3dir=shift or do { 
    warn "No directory specified, using current directory.\n" ;
    $mp3dir='.';
    };
opendir(MPD,$mp3dir) or die("can't open directory, $mp3dir.\n $!");
my @filelist=readdir(MPD);