sub pipe_sig{
    return 0;
};
$SIG{'PIPE'} = \&pipe_sig;