pg.pl

#!/usr/bin/perl -w

#aptitude install libdbd-pg-perl libdbi-perl -y 

use DBI;
system("clear");

my $dbh = DBI->connect("DBI:Pg:dbname=hem;host=localhost", "hem", "asdfasdf", {'RaiseError' => 1});

$sth = $dbh->prepare("SELECT * FROM products ORDER BY name");
$sth->execute();

while ( $row = $sth->fetchrow_hashref ) {
	print "$row->{name}\t$row->{description}\n";
}
    
$dbh->disconnect( );