BEGIN { $SIG{__WARN__} = sub { print STDERR @_; $DB::single = 1; } }