foreach(@sites){
     $site=$_;
     # call the sub
     &getpages($site);
  }

##</code><code>##

foreach my $site ( @sites) {
  &getpages($site);
}
##</code><code>##

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

##</code><code>##

if ( $debug > 10 ) {
  print STDERR "Site $site took $elapased seconds to load\n";
}
##</code><code>##

$data[$[] = scalar localtime;
foreach my $site (@sites){
       # call the sub
       my $elapsed_time = &getpages($site);
       push @data, writevalues($elapsed_time);
    }
open(OUTFILE,">>$datafile") || die "Cannot open $datafile :$!"; 
     foreach $data (@data) {
       print OUTFILE "$data ";
     }
     print OUTFILE "\n";
   close OUTFILE;