use IO::Dir;

my $d = IO::Dir->new('.') or die("ack: $!");
print $_,"\n" for grep -f, $d->read;
[download]

That should give you something to work with. Read the IO::Dir docs for more info on the module.
HTH

_________
broquaint