BEGIN { $DB::single = 1; ...