$SIG{PIPE} = sub { print STDERR "SIGPIPE @_\n"; };