Select Code to Download

Select or download this

foreach (keys(%servers)) {
    print "Connecting to $_ :: $servers{$_}: ";
...
    $socket->DESTROY;
    print "..\n";
}

Select or download this

Connecting to 24.164.137.84 :: 3456: IO::Socket::INET: connect: Connec
+tion refused
Connecting to 62.163.22.155 :: 4200: Connected
...
Connecting to 80.133.122.25 :: 7777: IO::Socket::INET: connect: Connec
+tion refused
Connecting to 213.84.39.165 :: 4567: IO::Socket::INET: connect: Connec
+tion refused
Connecting to 24.156.72.65 :: 513: IO::Socket::INET: connect: Connecti
+on refused                     (hangs here)