#!/usr/bin/perl

use DBI;
use strict;

my $DSN = 'dbi:Pg:host=localhost;dbname=bestweb';
my $USER =  'postgres';
my $PASS =  '';
my $db;

$db = DBI->connect($DSN,$USER,$PASS,{AutoCommit=>1,RaiseError=>1});