Help for this page

Select Code to Download

Select or download this

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

Select or download this

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