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

##</code><code>##

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