The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# for testing exclusive time calculations
# use with NYTPROF=trace=3
sub a {
    sleep 2;
    b();
}
sub b {
    sleep 5;
    c();
}
sub c {
    sleep 3;
}
a();