1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
sub foo { print "in sub foo\n"; } sub bar { print "in sub bar\n"; $^P -= 0x40; } foo(); $^P -= 0x40; foo(); $^P += 0x40; bar(); $^P += 0x40;