#!/usr/bin/perl

use DBI;

my $dbh = DBI->connect('DBI:Pg:dbname=mydb', 
                        'root',
		        '', 
			{RaiseError=>1,AutoCommit=>0} )
	  || &qit_unlogged('Could not connect to DB');
	  
exit;