Select Code to Download

use DBI;
while (1) {
...
  $dbh->disconnect();
  exit;
}

DBD::mysql::dr connect failed: handle 1 is owned by thread 183f3e8 not
+ current thread 260eb64 (handles can't be shared between threads and 
+your driver may need a CLONE method added) at C:/PERL/site/lib/DBI.pm
+ line 598.
DBD::mysql::dr disconnect_all failed: handle 1 is owned by thread 183f
+3e8 not current thread 260eb64 (handles can't be shared between threa
+ds and your driver may need a CLONE method added) at C:/PERL/site/lib
+/DBI.pm line 677.
END failed--call queue aborted.