eval {
        local $SIG{ALRM} = sub { die 'timed out' };
        alarm($connect_timeout);
        $socket = IO::Socket::INET->new(
                PeerAddr => $hostname,
                PeerPort => $port,
                Proto    => 'tcp');
        alarm(0);
    };