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

##</code><code>##

$SIG{PIPE} = undef 

or 

$SIG{PIPE} = ""

or 

#some thing else;