1 2 3 4 5 6 7 8 9 10
print "1..1\n"; use DBI; use DBD::Pg; if ($DBD::Pg::VERSION) { print "ok 1\n"; } else { print "not ok 1\n"; }