sub connect_db(){
    my $datasource = "dbi:PgPP:dbname=dbname;port=5499;host=hostname"; 
    my $aut  = '';
    my $role = 'username'
   
    my $attr  = {'PrintError' =>1, 'RaiseError' =>1, 'AutoCommit' => 1 };
    my $dbh = DBI->connect($datasource,$role,$aut,$attr) or die $DBI::errstr;

    sleep(1);
    $dbh->disconnect();
}