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