testdb=# select CATALOG_NAME from INFORMATION_SCHEMA.INFORMATION_SCHEMA_CATALOG_NAME;
 catalog_name 
--------------
 testdb
(1 row)

##</code><code>##


 testdb=# select current_catalog;
 current_database 
------------------
 testdb
(1 row)

##</code><code>##

use DBI::Const::GetInfoType;

say "SQL_DBMS_NAME     [",$dbh->get_info($GetInfoType{SQL_DBMS_NAME    }),"]";
say "SQL_DBMS_VER      [",$dbh->get_info($GetInfoType{SQL_DBMS_VER     }),"]";
say "SQL_DATABASE_NAME [",$dbh->get_info($GetInfoType{SQL_DATABASE_NAME}),"]";
say "SQL_SERVER_NAME   [",$dbh->get_info($GetInfoType{SQL_SERVER_NAME  }),"]";

-- output
SQL_DBMS_NAME     [PostgreSQL]
SQL_DBMS_VER      [09.02.0000]
SQL_DATABASE_NAME [testdb]
SQL_SERVER_NAME   [testdb]