use strict;
use DBI;

my $connectstring = "dbi:PgPP:dbname=test1";
my $dbuser = "postgres";
my $dbpwd = "passwort...";

my $dbh = DBI->connect($connectstring, $dbuser, $dbpwd);

print "connected.";
$dbh->disconnect();

print "thats it.";