1N/Asub foo {
1N/A my $x;
1N/A my $y;
1N/A print "in sub foo\n";
1N/A for( $x = 1; $x < 100; ++$x ){
1N/A bar();
1N/A for( $y = 1; $y < 100; ++$y ){
1N/A }
1N/A }
1N/A}
1N/A
1N/Asub bar {
1N/A my $x;
1N/A print "in sub bar\n";
1N/A for( $x = 1; $x < 100; ++$x ){
1N/A }
1N/A die "bar exiting";
1N/A}
1N/A
1N/Asub baz {
1N/A print "in sub baz\n";
1N/A eval { bar(); };
1N/A eval { foo(); };
1N/A}
1N/A
1N/Aeval { bar(); };
1N/Abaz();
1N/Aeval { foo(); };
1N/A