package A; sub foo { print "xyzzy\n"; } 1;