Select Code to Download

while ($_ = readdir(INDIR)) {
  ...
}

while ($_ = readdir(INDIR)) {
  next if -d || $_ eq '.' || $_ eq '..';
  ...
}

unless (-d $srcdir && -d $destdir ) {die "Error: $!";}