count wall tm  cpu time line
        0   0.00000   0.00000     1:#! perl -slw
        0   0.00000   0.00000     2:use strict;
        0   0.00000   0.00000     3:use Time::HiRes qw[ time ];
        0   0.00000   0.00000     4:
        0   0.00000   0.00000     5:sub aaa {
     5000   5.83176   0.17000     6:    Time::HiRes::nanosleep( 1_000_000 );
        0   0.00000   0.00000     7:}
        0   0.00000   0.00000     8:
        0   0.00000   0.00000     9:sub bbb {
      500   5.27816   0.00000    10:    Time::HiRes::nanosleep( 10_000_000 );
        0   0.00000   0.00000    11:}
        0   0.00000   0.00000    12:
        0   0.00000   0.00000    13:sub ccc {
       50   5.01925   0.00000    14:    Time::HiRes::nanosleep( 100_000_000 );
        0   0.00000   0.00000    15:}
        0   0.00000   0.00000    16:
        0   0.00000   0.00000    17:sub ddd {
        5   5.00106   0.00000    18:    Time::HiRes::nanosleep( 1_000_000_000 );
        0   0.00000   0.00000    19:}
        0   0.00000   0.00000    20:
        0   0.00000   0.00000    21:sub eee {
        0   0.00000   0.00000    22:    aaa()
        5   0.00001   0.00000    23:        for 1 .. 1000;
        0   0.00000   0.00000    24:    bbb()
        5   0.00001   0.00000    25:        for 1 .. 100;
        0   0.00000   0.00000    26:    ccc()
        5   0.00001   0.00000    27:        for 1 .. 10;
        0   0.00000   0.00000    28:    ddd()
        5   0.00001   0.00000    29:        for 1 .. 1;
        0   0.00000   0.00000    30:}
        0   0.00000   0.00000    31:
        1   0.00001   0.00000    32:eee for 1..5;