sub rm_conn
{
        use DBI;
        use strict;

        my $conn = DBI->connect("DBI:Pg:dbname=$_[0];", "$_[1]","$_[2]", {'RaiseError' => 1});
        return $conn;
}