% perl -w
close STDOUT;
print "Generate error!\n";
__END__
print() on closed filehandle STDOUT at - line 2.
 %