#!/usr//bin/perl -w
use LWP::UserAgent;
use Time::HiRes 'time','sleep';
 
$ua = LWP::UserAgent->new;
$request = new HTTP::Request('GET', "http://http://www.computerhope.com/file.com");
$start = time(  );
$response = $ua->request($request);
$end = time(  );
$latency = $end - $start;
 
print length($response->as_string(  )), " bytes received in $latency seconds\n";