close STDOUT;
open my $fh, "<", "/tmp/testfile";
warn fileno($fh);
__END__
Filehandle STDOUT reopened as $fh only for input at -e line 3.
1 at -e line 4.