sub DB::new_eval { local $DB::onetimeDump = 'dump'; &DB::old_eval(@_); }
*DB::old_eval = \&DB::eval;
*DB::eval = \&DB::new_eval;