{
    my $dbh;

    sub rm_conn
    {
        my ($db, $user, $pass) = @_;
        require DBI;
      return $dbh if $dbh;  # already connected
        $dbh = DBI->connect("DBI:Pg:dbname=$db;",$user,$pass, {'RaiseError' => 1})
           or die "Can't connect to $db $DBI::errstr;
      return $dbh;
    }

    sub dis_conn {
        $dbh->disconnect if $dbh;
    }
}

END { dis_conn() }