Select Code to Download

If "stat" is passed the special filehandle consisting of an
underline, no stat is done, but the current contents of the stat
...
    if (-x $file && (($d) = stat(_)) && $d < 0) {
        print "$file is executable NFS file\n";
    }