Select Code to Download

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

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