use LWP::UserAgent;
my $request_url = 'http://perlmonks.com';
my $user_agent = LWP::UserAgent->new;
$user_agent->timeout(30);
my $request = HTTP::Request->new('GET', $request_url);
my $response = $user_agent->request($request);