#!c:\perl\bin\perl.exe

use LWP::Simple;
for ($i=1; $i<3; $i++) {
	timeGetUrl('http://viva.uccs.edu/~guest/index.html');
	timeGetUrl('http://wetterhorn.uccs.edu/~chow/images/chow.jpg');
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/rainbowan.gif');
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/cs622banner.gif');
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/index.html');
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/hw/hw1.htm');
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/hw/hw1_ht1.gif');
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/hw/hw1_ht2.gif');
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/hw/hw1_ht3.gif');	
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/hw/hw1_ht4.gif');	
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/hw/hw1_ht5.gif');	
	timeGetUrl('http://wetterhorn.uccs.edu/~cs622/hw/hw1_ht6.gif');	
}

sub timeGetUrl() {
	my ($url) = @_;
	$time1 = time;
	$doc = get $url;
	$length= length $doc;
        $time2 = time;
        $period = $time2 - $time1;
        print "get $url size $length in $period seconds\n";
}


