#!/usr/bin/perl 

use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(
      GET => "https://www.amazon.com"
);
my $page = "";
eval {local $SIG{ALRM}=sub{die("timeout\n");};
     alarm 40;
     my $res = $ua->request($req);
     if ($res->is_success) {
         $page = $res->content;
     }
     alarm 0;
};