$SIG{'__WARN__'} = sub { warn $_[0]; $DB::single = $DB::single; $DB::single = 1; };