#!/usr/bin/perl

   use IO::Socket;

   $sock = IO::Socket::INET->new(PeerAddr => '66.199.241.106',
                                 PeerPort => '27015',
                                 Proto    => 'udp');



$msg="˙˙˙˙details\x00/˙˙˙˙players\x00/˙˙˙˙rules\x00";
$sock->send($msg) or print $!;