Select Code to Download

#!/usr/bin/perl
use strict;
...
}
print "data: $data\n";

#-----
# handle SIGPIPE ourselves, so we don't get killed
...
}
#-----

BROKEN PIPE
print to GLOB(0x6ff5b0) FAILED
reading from GLOB(0x6ff360) ('echo bar |')
data: bar

wrote 'foo' to GLOB(0x63c160) ('| cat')
reading from GLOB(0x6ff5a0) ('cat |')
data: foo

GLOB(0x6ff5b0) not ready for writing
reading from GLOB(0x6ff360) ('echo bar |')
data: bar