use WWW::Mechanize; use Time::HiRes qw(time); my $links=[ "http://web-page.to.download.to/", "http://static.to.download.to/background.jpg", "http://static.to.download.to/first.css", "http://www.google-analytics.com/ga.js", "http://static.ak.fbcdn.net/rsrc.php/v2/yl/r/6KM-54hh6R2.css", ]; my $start=time; foreach (@$links) { $mech->get($_); }; my $stop=time;