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]