% perl -w
my $loop; $SIG{__WARN__}= $loop= sub {
    $SIG{__WARN__}= $loop;
    print STDERR "Got: ", @_;
    print "Warn: ", @_;
};
close STDOUT;
print "Generate warning!\n";
die "Done.\n";
__END__
Got: print() on closed filehandle STDOUT at - line 7.
print() on closed filehandle STDOUT at - line 4.
Done.
 %