perl -e 'use Data::Dumper; print Dumper( \%SIG );'

##</code><code>##

$SIG{ HUP } = \&MyNoHup;

##</code><code>##

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