##
if (($_=LWP::UserAgent->new()->
request(
HTTP::Request->new(GET=>'http://geeksalad.org')
))->is_success) {
print $_->content;
}
##
##
# Create a user agent object
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = new HTTP::Request POST => 'http://geeksalad.org';
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content;
} else {
print "Bad luck this time\n";
}