#!/usr/bin/perl

# Jim Conner 4/30/2001

use IO::Socket;
use strict;
use Cwd;

################################################
my $rcon_passwd = "password";
my $peer_addr = "mybox.net";
my $peer_port = "27500";

################################################

my $socket = IO::Socket::INET->new(PeerAddr => $peer_addr,
                                   PeerPort => $peer_port,
                                   Proto    => 'udp') or
             die("Cannot open socket to $peer_addr on $peer_port\n");

# Could use "\xff\xff\xff\xff\x0" too
my $prep = chr(255)x4;
my $send = chr(0);

#$socket->send("$prep rcon $rcon_passwd status\n");
print $socket "$prep rcon $rcon_passwd status\r";

while ( <$socket> ) {
    print;
}
print "done\n";