Select Code to Download

sub foo {
    my $t0 = Benchmark->new();
...
    my $t1 = Benchmark->new();
    say "bar() took" . timestr(timediff($t1, $t0));
}

sub foo {
    say "Starting foo() with yadda";
...
    say "Now munging";
    say "Done with foo()";
}

my $DEBUG = 1;

...
          say $msg;
     }
}