Select Code to Download

#!/usr/bin/perl
use warnings;
...
else {
   print "Nope. Sorry.\n";
}

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.p
+l line 5