#!/usr/bin/perl -w

use LWP::UserAgent;
my $ua = LWP::UserAgent->new(
                             keep_alive => 1,
                             timeout => 30,
                             debug => 1
                             );
my $body = $ua->get($ARGV[0]);
print $body->as_string;