#!/usr/bin/perl

# Replace <USERNAME_DATABASE>, <USERNAME>, and <PASSWORD> below with your actual DB, user, and password.

use DBI;

$dbh = DBI->connect ("dbi:Pg:dbname=<USERNAME_DATABASE>", "<USERNAME>", "<PASSWORD>");

$sth  = $dbh->prepare("SELECT * FROM testschema.testtable");
$sth->execute();

while ( ($test_id,$test_name,$test_email) = $sth->fetchrow_array() ) 
{
    	print "$test_id\t\t  $test_name\t\t $test_email \n";
}

$sth->finish();

$dbh->disconnect();