Select Code to Download

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

foreach my $site ( @sites) {
  &getpages($site);
}

sub getpages{
  #  start timer
...
     print "Site $site took $elapsed seconds to load\n";
  }
}      # sub getpages

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

$data[$[] = scalar localtime;
foreach my $site (@sites){
...
     }
     print OUTFILE "\n";
   close OUTFILE;