in reply to Re: How's your Perl? (II)
in thread How's your Perl? (II)

You don't need any switches!

BEGIN{$^P=0x22;sub DB::DB{++$foo==2 and die}}

(I am pretty sure that is not the official solution, by the way, and it means that 8 does not need to exploit actual bugs.)

updated: Oops, copied a wrong version initially. One character difference.