$SIG{PIPE} = sub { die "Got SIGPIPE" };