Select Code to Download

#!/usr/local/bin/perl -w #  print warnings
use strict;
...
      print ">$File::Find::name  < is not a file or was not found\n";
}

#!/usr/local/bin/perl -w
use strict;
...
if ( -f $_) {   print  "This is success - the file   $_  exist\n"};

}