#!/usr/bin/perl -w

use strict;
use warnings FATAL => qw(all);
use DBI;

my $DBH = DBI->connect("DBI:Pg:dbname=inxay","hombre", 0, { 'RaiseError'=>1 } ) 
	|| die "DBI connect failed: $!";

my @Names;
my $q = $DBH->prepare("SELECT name FROM directory_project");
$q->execute();
while (my $n = $q->fetchrow_array()) { push @Names,$n }

my $e = $q->err;
print $e if ($e);

print $#Names."\n";

$DBH->disconnect || warn $DBH->errstr;