syswrite($socket, "$prep rcon $rcon_passwd status\r");

##</code><code>##

while ( (sysread($socket, $incoming, 1024) != 0) {
 print $incoming;
}