am making a tool that posts text to a website's comment box, but i dont see the comment getting posted, i used Live HTTP to define the headers

my $serv = "http://members.sitegadgets.com/scripts/signbook.cgi";
$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", Pe
+erPort => "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.h
+tml";
print $get1 "Cookie: __utma=51880117.969742665.1330962869.1330962869.1
+330962869.1; __utmb=51880117; __utmc=51880117; __utmz=51880117.133096
+2869.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, "+";

[download]

In reply to How to Post s Comment in Perl? by P3kPerl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.