Select Code to Download

opendir DIR, "dirname";
@files = readdir DIR;
...
for $file (@files) {
  do whatever you want ...
}

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

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

-----------------------------------
--the good, the bad and the physi--
-----------------------------------