Select Code to Download

 opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
 @dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
 closedir DIR;