Teiid ODBC compatibility with perl-DBD-Pg for postgresql is broken

#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $db_type = 'Pg';
my $db_name = 'TestZipVDB';
my $db_host = 'teiid.host';
my $db_port = 5432;
my $user = 'teiid';
my $pass = 'teiid';
my $attr = { AutoCommit => 0, RaiseError => 1 };

my $dsn = sprintf( "dbi:%s:dbname=%s;host=%s;port=%s;sslmode=prefer",
    $db_type, $db_name, $db_host, $db_port );

my $dbh = DBI->connect( $dsn, $user, $pass, $attr );

my $query = <<QUERY;
select count(1) from bugzilla.bugs
QUERY

my $sth = $dbh->prepare($query);
$sth->execute();

while ( my @row = $sth->fetchrow_array() ) {
    print join( ',', map {"\"$_\""} @row ) . "\n";
}

$sth->finish();
$dbh->disconnect();

DBD::Pg::st execute failed: unexpected response from server; first received character was "s" at ./a.pl line 25.
DBD::Pg::st execute failed: unexpected response from server; first received character was "s" at ./a.pl line 25.
Issuing rollback() due to DESTROY without explicit disconnect() of DBD::Pg::db handle dbname=TestZipVDB;host=teiid.host;port=5432 at ./a.pl line 25.