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

BEGIN {
        print "in BEGIN\n";
}

sub foo {
        print "in sub foo\n";
}

foo();