Select Code to Download

perl -MData::Dumper -E ' print Dumper \%SIG '

$SIG{PIPE} = undef 

...

#some thing else;