our $sigpipe=0;
$SIG{PIPE}=sub{$sigpipe++};