use WWW::Mechanize;
my $mech = WWW::Mechanize->new(agent => "NotBlocked/0.01");
my $url = "http://en.wikipedia.org/wiki/Hotel";
$mech->get($url);
print $mech->content;