I've got this far:

#!/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 $!;
[download]

But, then, how do I get the response? Firewalls are all off- I've found some PHP code that does the same sort of thing and it works.