my $Socket = new IO::Socket::INET (
   Proto => "udp",
   PeerAddr => $Settings{ServerIP},
   PeerPort => $Settings{ServerPort},
);

if ($Socket)
{
   open (ERROR, ">/dev/null") or die $!;
   STDERR->fdopen(\*ERROR, "w") or die $!;
   $Socket->send($Settings{RCONCommand}) or next;
   $SIG{ALRM} = \&Timeout;
   print".";
   eval {
      alarm (4);
      $Socket->recv($Info{Data},16384) or next;
      alarm (0);
      close $Socket;
   }
} 
else 
{
   close $Socket;
}