Select Code to Download

opendir(DIR, $some_dir) || die "can't opendir '$some_dir': $!";
while ($file = readdir(<DIR>)) {
...
         close(FILE);
    }
close(DIR);