#!/usr/bin/perl

use strict;
use warnings;

my $url;

#1 $url = "http://www.perlmonks.org";
#2 $url = "http://en.wikipedia.org/wiki/Hotel";
#3 $url = "http://search.yahoo.com/search?p=hotel&fr=yfp-t-103&toggle=1&cop=mss&ei=UTF-8";

use LWP::Simple;

my $str = LWP::Simple::get($url);

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