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