Then pass in the directory that you're listing, and better still, use that in conjunction with File::Find::Rule e.g
use File::Find::Rule;
my $dir = shift;
die "$0: invalid directory $dir\n"
unless -d $dir;
my @files = find(
name => '*.mp3',
in => $dir
);
I think you'll find that you'll be able to get a lot more flexibility and extensibility if you build the file listing into the program (not that there's anything wrong with using command line tools of course).
HTH
_________
broquaint |