#!/usr/local/bin/perl
use CGI;

my $q = new CGI;
use LWP;
use HTTP::Request::Common qw(POST GET);
use LWP::UserAgent;


print "Content-type: text/html\n\n";

$ip_line="http://XXXXXX/setcookie.cgi";

my $ua = new LWP::UserAgent;
#$ua->agent("AgentName/0.1 " . $ua->agent);

#my $req = new HTTP::Request "POST","$ip_line";
#$req->content("username=user&password=pwd");
$ua->timeout(45);                       # 45-sec timeout

my $req = POST $ip_line, [
    username => "user",
    password => "pwd"
];

my $res = $ua->request($req);
print "status=[".$res->status_line."]n";
#$content = $res->content();
#print $content;