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

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