sub foo {
    print "Hello\n";
    sub bar {
	print "world!\n";
    }
    bar();
}
foo();
bar();