#!/usr/bin/perl

use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=template1");
my $rc = $dbh->disconnect();
print "Resultado: $rc\n";