#!/usr/bin/perl

use LWP::UserAgent;

my $url = "http://www.somesite.com/";
my $ua = LWP::UserAgent->new;
$ua->timeout(20);
my $res = $ua->request(HTTP::Request->new(GET => $url));
print $res->content;