$SIG{PIPE} = sub { die "Pipe error"; }