#!/usr/bin/perl

use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=template1");
my $ary = $dbh->selectall_arrayref('select * from prueba2');
print "Id\tnombre\tapellidos\t\tpuesto\n";
print "="x50,"\n";
for ( @$ary ) {
  my ( $id, $nombre, $apellidos, $puesto )=  @$_;
  print "$id\t$nombre\t$apellidos\t$puesto\n";
}
my $rc = $dbh->disconnect();
print "Resultado: $rc\n";