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