use strict; use warnings; use LWP::UserAgent; use Time::HiRes; { my $ua = new LWP::UserAgent(); my $search_address = "http://ejournals.ebsco.com/direct.asp?JournalID=101503"; my $req = new HTTP::Request ('GET',$search_address); my $start = [ Time::HiRes::gettimeofday( ) ]; ##Get the response object my $res = $ua->request($req); ##Get the response time and return code my $diff = Time::HiRes::tv_interval( $start ); my $code = $res->code(); print "Code $code fetched in $diff seconds\n"; }