Utiliser les fonctions connect et disconnect de DBI :
my $db_login = "your_login";
my $db_passwd = "your_passwd";
my $db_base = "your_database";
my $dbh = DBI -> connect("dbi:Pg:dbname=$db_base", $db_login, $db_passwd )
or die $DBI::errstr;
print "connected to the database\n";
# ... faire quelque chose avec la base
$dbh -> disconnect or warn $DBI::errstr;
Vous trouverez plus d'informations sur la page de man suivante :
Et dans la documenation de Perl :