sub sig_handler {
 ....
}
$SIG{'PIPE'} = \&sig_handler;