note
ar0n
<code>#!/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();
}
</code>
<br>
<small>[<a href="/index.pl?node=ar0n&lastnode_id=3333">ar0n</a>]</small><br>
<br>
35373
35376