Select Code to Download

$socket = IO::Socket::INET->new(PeerAddr => $host,
                                PeerPort => $port,
...
                                Type     =>SOCK_STREAM,
                                Timeout  => "10")
or die "game down\n\n";

close($socket);