Help for this page
my $host=$_[0]; my $sock = new IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27015',Prot +o=>'udp'); die "Could not create socket: $!\n" unless $sock;
my $host=$_[0]; my $sock = new IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27015',Prot +o=>'udp',LocalPort=>'27005'); die "Could not create socket: $!\n" unless $sock;