use LWP::Simple qw( get );
use Time::HiRes qw( time );

my $url = "http://www.perlmonks.org/";

my $start_time = time;
get($url);
my $end_time = time;

print("The transfer took ", $end_time-$start_time, " seconds.\n");