#! perl -sw
use 5.010;
use strict;
use threads;
use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=junk", '******', '********');
say $dbh;

my $sth = $dbh->prepare( 'Select * from fred' );
$sth->execute;
while( my @row = $sth->fetchrow_array ) {
    say "@row";
}

##</code><code>##

c:\test>DB.pl
DBI::db=HASH(0x40ae870)
1 fred
2 bill
3 jack
4 joe