Help for this page

Select Code to Download

Select or download this
```
$SIG{PIPE} = 'IGNORE';
```

Select or download this

my $connected = 0;
$SIG{PIPE} = sub { warn "Lost connection to server: $!"; $connected = 
+0; };
...
 
    print "done\n";
}