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

(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.