my $dbh = DBI->connect("dbi:Pg:dbname=template1")
  || die "Que no puedo conectarme por $@, joé\n";
print start_table, Tr( th( ['Id','Nombre','Apellidos','Puesto'] ) ), "\n",
  map( Tr( td( $_ )), 
       @{$dbh->selectall_arrayref('select * from prueba2')} ),
  end_table;