use DBI qw(:utils);

$DBcon=DBI->connect("DBI:Pg:dbname=demo", "demo", "demo-pass");

$DBhandle=$DBcon->prepare("SELECT * FROM demo");
$DBhandle->execute();
if ($DBI::rows > 0) {
  print $_->{'content'}." - ".data_string_desc($_->{'content'})."\n" while $_ = $DBhandle->fetchrow_hashref();
}

$DBcon->disconnect();