🚀 go-pugleaf

cześć.
tworzę prosty serwerek, który wysyła zapytania do bazy w postgresie.
niestety połączenie z procesów potomnych nie funkcjonuje i wypluwa:


DBD::ODBC::db prepare failed: handle 2 is owned by thread 275014 not
current thr
ead 1ed3abc (handles can't be shared between threads and your driver
may need a
CLONE method added) at E:\WWW\menu3.bat line 53.

jak przerobić to żeby działało ?
############################################
my $dbh = DBI->connect("dbi:ODBC:TEST", "postgres", "postgres")
        or do {print "Baza  nieczynna !!! ".$DBI::errstr; return};

$dbh->{LongTruncOk} = 1;     		# use 1 if it is ok to trunc data
$dbh->{LongReadLen} = 8192; 		# 8kB text max


while ($acc = $sock->accept()) {

	unless (fork()) {
		print $acc "HTTP/1.0 200 OK\n\n";
		print $acc "<html>\n";

		my $sth = $dbh->prepare("select * from www(?)");
		$sth->execute('A');

		while (my $ary = $sth->fetchrow_arrayref) {
			print $acc $ary->[0]."\n";
		};

		$sth->finish;
	};

   print $@ if $@;
   close $acc;
};