1N/ABEGIN {
1N/A print "in BEGIN\n";
1N/A}
1N/A
1N/Asub foo {
1N/A print "in sub foo\n";
1N/A}
1N/A
1N/Afoo();