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