Select Code to Download

use Time::HiRes qw(gettimeofday tv_interval);
my $TH = [gettimeofday];
...
  ...and some more!...
}
report("C");

my %TH;
sub report {
...
}
...
print "$_: $TH{$_}\n" for keys %TH;