Select Code to Download

 % perl
close STDERR;
die "ZOMG, infinite loop!";
__END__
 %

 % perl
close STDOUT;
print "Generate error!\n";
__END__
 %

 % perl -w
close STDOUT;
...
__END__
print() on closed filehandle STDOUT at - line 2.
 %

 % perl -w
close STDOUT; close STDERR;
print "Generate error!\n";
__END__
 %

 % perl -w
my $loop; $SIG{__WARN__}= $loop= sub {
...
print() on closed filehandle STDOUT at - line 4.
Done.
 %