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

##</code><code>##

$fh = 'STDOUT';
print "Nope\n" unless defined eval {fileno $fh};