$contentpost =
        "id=20010131".
        "&username=$username".
        "&password=$password".
        "&subject=$subject".
        "&comments=$post".
        "&submit=Submit";

$contentpost =~ s/ /+/g;

$ua = new LWP::UserAgent;
my $req = new HTTP::Request 'POST',$formurl || print "fail 1";
$req->content_type('application/x-www-form-urlencoded') || print "fail 2";
$req->content("$contentpost") || print "fail 3";
my $res = $ua->request($req) || print "fail 4";