#!/usr/bin/perl -w

use DBI;

use strict;

use vars qw($dbh);

BEGIN { $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=server_1",
	$username, $password, { RaiseError => 1 }); }

END { $dbh->disconnect; }

# do DBI stuff