#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new;
$ua->timeout(5);

my $res = $ua->request(GET 'http://google.com');

if ($res->is_success) {
         print $res->content;
         
}else{print 'Uh oh timeout'}
[download]