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

##</code><code>##

close($socket);