#!/usr/bin/perl
use Pg;

$conn = Pg::connectdb("dbname=url") or print "error";
$res  = $conn->exec("SELECT * ") or print "error";