#! /usr/bin/perl

use Crypt::SSLeay;
use LWP::UserAgent;

 my $ua = LWP::UserAgent->new;

 my $response = $ua->get('https://66.11.78.112');

#this timeout statement is not effective     

$ua->timeout(3);

     if ($response->is_success) {
     print $response->content;  # or whatever
                                      }
     else {
     die  printf " %s\n", $response->status_line;
      }