#!/usr/bin/perl -w

use strict;
use HTTP::Cookies;
use LWP::UserAgent;
use URI::URL;

my $user = 'USER_NAME_HERE';
my $password = 'PASSWORD_HERE';

my $agent = new LWP::UserAgent();

my $cookie = new HTTP::Cookies(
                 file     => 'cookies.dat',
                 autosave => 1
             );

$agent->cookie_jar( $cookie );

my $url = new URI::URL 'http://perlmonks.org/index.pl';

$url->query_form(
          op          => 'login',
          node_id     => '109',
          lastnode_id => '131',
          user        => $user,
          passwd      => $password
      );

my $request = new HTTP::Request 'GET', $url->as_string();
my $result = $agent->request( $request );

die "Error logging in: $result->code $result->message"
    if ( !$result->is_success );

$url = new URI::URL 'http://perlmonks.org/index.pl';

$url->query_form( node => "User Nodes Info XML Generator" );

$request = new HTTP::Request 'GET', $url->as_string();
$result = $agent->request( $request );

die "Error receiving results: $result->code $result->message"
    if ( !$result->is_success );

print '->', $result->content, '<-';