#!/usr/bin/perl 

use strict; 
use Socket; 

sub GetSrvStat { 
    my $host=shift; 
    my $port=shift; 
    my $retmsg=""; 

    socket(RCON, PF_INET, SOCK_DGRAM, getprotobyname("udp")) or die "socket: $!"; 
    my $ipaddr = inet_aton($host); 
    my $portaddr = sockaddr_in($port, $ipaddr); 
    my $updfrg=""; 
    my $msg="\xFF\xFF\xFF\xFF\x02getstatus\n\0"; 
    ->send(RCON, $msg, 0, $portaddr) == length($msg) or die "cannot send to $host($port): $!"; 

    my $ant=recv(RCON, $retmsg, 8192, 0) or $onlstat=0; 
    close(RCON); 
    return $retmsg; 
}