#!/usr/bin/perl
use warnings;
use strict;
use DBI;

my $db = DBI->connect('dbi:PgPP:testdb', 'postgres', 'xxxxxxxxx');

if( $db ) { 
   print "Connected!\n";
}

else {
   print "Nope. Sorry.\n";
}