Select Code to Download

    my $sock = new IO::Socket::INET(
        PeerAddr => $addr,
...
        Proto => 'tcp',
        Timeout => $nPOKESERVERTIMEOUT
    );

    
    sub timeout { $SIG{'ALRM'} = \&timeout;print "Socket Timeout\n"; }
    $SIG{'ALRM'} = \&timeout;
...
        while (my $line = <$sock>) { $data .= $line; }
        alarm 0;
    }

    sub timeout { die "Socket Timeout\n"; }