($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
	$atime,$mtime,$ctime,$blksize,$blocks)
		= stat($filename);

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