sub getpages{
  #  start timer
  my $t0 = [gettimeofday];
  #  get the page
  my $site = shift;
  get("$site");
  #  stop timer
  my $t1 = [gettimeofday];
  #  write the values
  my $elapsed = tv_interval $t0, $t1;
  &writevalues($elapsed);
  if($debug){
     print "Site $site took $elapsed seconds to load\n";
  }
}      # sub getpages