source: trunk/essentials/dev-lang/perl/t/lib/dprof/test6_t

sub foo {
        my $x;
        my $y;
        print "in sub foo\n";
        for( $x = 1; $x < 100; ++$x ){
                bar();
                for( $y = 1; $y < 100; ++$y ){
                }
        }
}

sub bar {
        my $x;
        print "in sub bar\n";
        for( $x = 1; $x < 100; ++$x ){
        }
        die "bar exiting";
}

sub baz {
        print "in sub baz\n";
        eval { bar(); };
        eval { foo(); };
}

eval { bar(); };
baz();
eval { foo(); };