Select Code to Download

#!/usr/bin/perl
use File::Copy;
...
for $f (glob("$src\*")) {
  move($f, "\out");
}

#!/usr/bin/perl
use File::Copy;
...
while ($f = readdir(DIR)) {
  move("$src\$f", "\out");
}