#!/afs/athena/contrib/perl/p

require 'url.pl';

while(1){
    $now = time;
    for $n (1..20){
	$x = &get_url($ARGV[0]);
#	print length($x), "\n";
    }
    $then = time;
#    print($x);
    print("Total time: ", $then-$now, "\n");
}