foreach (keys(%servers)) {
    print "Connecting to $_ :: $servers{$_}: ";

    my $socket;

    $socket = IO::Socket::INET->new(
            PeerAddr => $_,
            PeerPort => $servers{$_},
            Proto    => "tcp",
            Reuse    => 1,
            Type     => SOCK_STREAM);

    if (! defined ($socket)) {
        print "$@\n";
        next;
    }

    print "Connected\n";

    close $socket;
    $socket->DESTROY;
    print "..\n";
}