message somebody in quake.

qm.pl

#!/usr/bin/perl
use Socket;


my %server;
$server{'port'} = "27960";
$server{'host'} = (shift(@ARGV));
@message = @ARGV;

print "trying: $server{'host'}:$server{'port'}\n";
socket(SOCKET, PF_INET, SOCK_DGRAM, getprotobyname("udp"));
unless(gethostbyname($server{'host'})) {
        print "unable to open $server{'host'}\n" }
connect(SOCKET, sockaddr_in($server{'port'}, inet_aton($server{'host'})));
send(SOCKET, "\xFF\xFF\xFF\xFFprint foo\n", 0);
print "\xFF\xFF\xFF\xFFprint \n@message\n";