## Including
use IO::Socket::INET;

## Scriptoptions
$| = 1; # disable output buffering

## Config
%config = (
        SERVER        =>      "193.192.58.21",
    PORT        =>      27000,
        PASSWORD   =>      "cordon",
    VERSION      =>          "v0.1a",
);

## Baue Socketverbindung auf

$Sock = IO::Socket::INET->new(
        Proto           => "udp",
        PeerAddr        => $config{"SERVER"},
        PeerPort        => $config{"PORT"},
) or die("Konnte keine Verbindung zum Server aufbaun.");

$line= $Sock->send("\xff\xff\xff\xffchallenge rcon\n");

if ($line =~ /challenge +rcon +(\d+)/)
{
    $command="changelevel de_dust2";
        $msg = "\xFF\xFF\xFF\xFFrcon $1 \"$config('PASSWORD')\" $command\0\n";
        $line = $Sock->send($msg);
}