close STDOUT; no warnings "io"; open my $fh, "<", "/tmp/testfile"; warn fileno($fh); __END__ 1 at -e line 5.