try it with readdir
like that:

opendir DIR, "dirname";
@files = readdir DIR;
closedir DIR;

for $file (@files) {
  do whatever you want ...
}
[download]

Remember to throw away files you don't need, or just use the files you are looking for. i.e.:

for $file (@files) {
  next if $file =~ /^.+/;
}
[download]

or

for $file (@files) {
  next if $file !~ /\.whatever/;
  do your stuff here
}
[download]

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]