#!/usr/bin/perl -w

use strict;

use HTTP::Request::Common 'POST';
use LWP::UserAgent;

{
        my $username = "";
        my $password = "";

        my $url = "http://perlmonks.org/index.pl";

        my $www = new LWP::UserAgent;

        my $req = POST $url,
                [
                        user            => $username,
                        passwd          => $password,
                        op              => "login",

                        pageloadtime    => time(),
                        node_id         => 3628,
                        displaytype     => "display",
                        viewedNewNodes  => "I've checked all of these"
                ];

        print $www->request($req)->as_string();
}
[download]