my $dbh = DBI->connect("DBI:Pg:dbname=$database",$user,$password );

##</code><code>##

Old-style: DBI->connect('dbname', $user, $pass, 'Driver');

New-style: DBI->connect('dbi:Driver:dbname', $user, $pass);