Help for this page

Select Code to Download

Select or download this

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

Select or download this

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;