use HTTP::Request::Common;
use LWP::UserAgent;
use CGI qw(header -no_debug);
$ua = LWP::UserAgent->new();

   $req = POST $test,
                [
    username => 'XXX',
    password => 'YYY',
                ];

$content = $ua->request($req)->as_string;
print "content-type: text/html\n\n";
#print $content;
#print $req->as_string;

$page = $ua->request($content);

#	*** TEST ***
  if ($page->is_success) {
      print $page->content;
  } else {
      print $page->error_as_HTML;
  }