$fh = \*STDIN;
print "Nope\n" unless eval {fileno $fh};