#!/usr/bin/perl

use DBIx::Abstract;
use CGI qw(:standard *table *Tr);

my $dbh = DBIx::Abstract->connect( { dsn => "dbi:Pg:dbname=template1" });


my $href = $dbh->select_all_to_hashref( { fields => 'id,nombre,apellidos',
					  table => 'prueba2',
					  order => "apellidos asc" });
print "Curritos \n";
for ( keys %$href ) {
  print "Id $_ Nombre $href->{$_}[0], Apellidos $href->{$_}[1]\n";
}

my $rc = $dbh->disconnect();