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
);
[download]

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