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