http://qs1969.pair.com?node_id=35394


in reply to RE: Newest Nodes too big?
in thread Newest Nodes too big?

#!/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(); }

[ar0n]