require LWP::UserAgent;
my $ua = LWP::UserAgent->new;

my $response = $ua->get($ARGV[0]);
$_=$response->content;