mira, si ese comando te devuelve todas las tablar deberías llamarlo desde un array,algo como esto:
Código:
my $dbh = DBI->connect("dbi:$db_driver:$db_name",$db_user,$db_pass);
my $sth = $dbh->prepare("DO('\d')");
$sth->execute();
if (@db_tablas = $sth->fetchrow_array()) {
print "clientes: $db_registro[0] - nombre: $db_registro_[1] <br>\n";
}
$sth->finish();
$dbh->disconnect;
Ahí estoy usando el módulo DBI para conectarme, pero no se si el psotgresql soporta la instrucción do, como lo hace mysql, eso fijate en la documentación del postgres.
Prueba de colocar el \d con comillas simples para que perl no lo interprete...
Saludos