#!/usr/bin/perl -w                                                                                
use strict;                                                                                
use LWP::UserAgent;
use Sys::Hostname;
my $agent = new LWP::UserAgent( timeout => 30 );
my $site = 'http://www.perlmonks.org/';
my $response = new HTTP::Request GET => $site;
my $start = time();
my $page = $agent->request($response);
my $end = time();
my $sum = $end - $start;
print "\n$end - $start = $sum";