use LWP::UserAgent;


my $ua = LWP::UserAgent->new();
my $req = new HTTP::Request GET => 'http://en.wikipedia.org/wiki/Hotel';
my $res = $ua->request($req);
my $content = $res->content;


#----------------------
print "$content\n";
#----------------------