Example:

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

(This works on machines only for which the device number is negative under NFS.)