use DBI;
use vars qw($dbdriver $dbname $dbhost $dbuser $dbpasswd);

$dbdriver = 'Pg'; # mysql or Pg
$dbname   = 'pere';
$dbhost   = 'localhost';
$dbuser   = 'pere';
$dbpasswd = '';

sub dbi_connect {

    return DBI->connect("dbi:$dbdriver:dbname=$dbname",
                        $dbuser, $dbpasswd) # ;host=$dbhost
        || die "Unable to connect to DB: $DBI::errstr";
}

sub dbi_disconnect {
    my $dbh = shift;
    return $dbh->disconnect();
}

1;