use LWP::UserAgent;
use HTTP::Response;

my $content;
my $ua = LWP::UserAgent->new();
$ua->timeout(4);
my $response = $ua->get("http://www");
if($response->is_success()) {
  $content = $response->content();
} else {
  $content = "";
}