Select Code to Download

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

$SIG{ HUP } = \&MyNoHup;

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