Select Code to Download

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