Help for this page

Select Code to Download

Select or download this

sub _error {
    my $sock = shift;
...
    $! = $err;
    return undef;
}