# Create a user agent object
  use LWP::UserAgent;
  $ua = new LWP::UserAgent;
  $ua->agent("AgentName/0.1 " . $ua->agent);

  # Create a request
  my $req = new HTTP::Request POST=> 'http://www.genesisreports.com/genesis/user/mypage.asp';

  # Pass request to the user agent and get a response back
  $ua->credentials('http://www.genesisreports.com/genesis/user/mypage.asp', 'admin', 'username', 'password');
  
  my $res = $ua->request($req);
  print $req->as_string();
  # Check the outcome of the response
  if ($res->is_success) {
      print $res->content;
  } else {
      print "Bad luck this time\n";
  }