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