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

##</code><code>##

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

##</code><code>##

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