#!/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";
}

##</code><code>##

C:\Perl2\bin>perl test_pg.pl
DBI connect('testdb','postgres',...) failed: Couldn't connect to /tmp/.s.PGSQL.5432: at C:/Perl2/site/lib/DBD/PgPP.pm line 124 at test_pg.pl line 5