#!/usr/bin/perl
use LWP::Debug qw(level); level('+');
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
my $resp = $ua->get("http://www.yahoo.com/");
my $resultUsingLWP;
if($resp->is_success) {
$resultUsingLWP = $resp->content;
} else {
$resultUsingLWP = $resp->status_line;
}
print "Content-type: text/html; charset=utf-8\n\n";
print "LWP result: {$resultUsingLWP}";
print "\n";