use LWP::Simple;
use Time::HiRes qw(usleep gettimeofday tv_interval);

open(URLS, "URL_LIST.txt") || die "Cannot Open URL_LIST.txt\n$!\n";

$startPounding = [gettimeofday];

  while(<URLS>){

	chomp;

	$t0 = [gettimeofday];

	get($_);

	$t1 = [gettimeofday];

	print LOG tv_interval($t0, $t1) . "\n";

  }

$endPounding = [gettimeofday];

close(URLS);

print "Total Test Time: " . tv_interval($startPounding, $endPounding);