$SIG{ PIPE } = sub { warn "Broken pipe trap, traceback follows:\n" . Trace::trace(); }