Select Code to Download

#!/usr/bin/perl
use strict;
...
close $wh;

print "done.\n";    # not reached, except when handling SIGPIPE yourse
+lf

$ strace ./747486.pl
(...)
...
write(8, "foo\n", 4)                    = -1 EPIPE (Broken pipe)
--- SIGPIPE (Broken pipe) @ 0 (0) ---
+++ killed by SIGPIPE +++