Select Code to Download

@listDir = readdir(ORIG);
if (!@listDir) { die("there no files !") ; }
foreach $i (@listDir) {
...
   }
   else {print "$i isn't a file !\n"; }
}

$i = 'C:/test/hello.exe' ;
   if ( -f $i)
...
   }
   else {print "$i isn't a file !\n"; }
}