Help for this page

Select Code to Download

Select or download this

    eval {
        local $SIG{ALRM} = sub { die 'timed out' };
...
                Proto    => 'tcp');
        alarm(0);
    };

Select or download this

    eval {
        local $SIG{ALRM} = sub { die 'timed out' };
...
                Timeout  => $connect_timeout,
                Proto    => 'tcp');
    };