Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my $result = get(http://www.perlmonks.com/index.pl?node_id=131");

Select or download this

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
...
my $WWWResult = $WWWAgent->request($WWWRequest);
die "Error logging in $WWWResult->code $WWWResult->message" if(!$WWWRe
+sult->is_success);
print $WWWResult->content;