Select Code to Download

#!/usr/local/bin/perl -w # force taint checks, and print warnings
use strict;
...
    return if -f $File::Find::name; # This is success - the file exist
    print ">$File::Find::name< is not a file or was not found\n";
}

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

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

}