#!usr/bin/perl
use warnings;
use diagnostics;
use strict;

use DBI;

my $driver = "ODBC";
my $dbname = "test"; 
my $dsn = "dbi:$driver:$dbname";
my $username = "postgres";
my $password = "************";

my $dbh = DBI->connect($dsn, $username, $password, {PrintError => 0, RaiseError => 1}) || die "Error $DBI::err [$DBI::errstr]";

 print "Connected: State is %s\n", $dbh -> state || "OK";

$dbh->disconnect;