use strict;
use warnings;

use LWP::Simple qw($ua get);

$ua->agent('My agent/1.0');

my $url = "http://en.wikipedia.org/wiki/Hotel";
my $html = get $url || die "Timed out!";

print $html;