Select Code to Download

foreach $oFile(@FileList) {
   next unless defined $oFile;
...
       }
   }
}

foreach (keys %Dir) {
   $FileSet{$_}++ 
       unless $_ eq "." || $_ eq ".." || $_ eq "GONE" || $_ eq "";
}