if (-x $file && (($d) = stat(_)) && $d < 0) { print "$file is executable NFS file\n"; }