...
$ftp1->cwd("$dir1") or $ErrFlg=1; 
  push @ERRORS, "Can't cd to $dir1 $!\n" if $ErrFlg;
  myerr() if $ErrFlg;
  $ftp1->quit if $ErrFlg;

$maxDepth=$maxDepth1;  # Find function
find ({preprocess => \&preprocess, wanted => \&wanted,}, ".");