#!/usr/bin/perl

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

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


while(<>) {
  my ($nombre,$apellidos,$puesto)=split(/\s*,\s*/,$_);
  $dbh->insert('prueba2', 
	       { nombre => $nombre,
		 apellidos => $apellidos,
		 puesto => $puesto} );
}

my $ary = $dbh->select('nombre,apellidos','prueba2',"puesto='currito'")->fetchall_arrayref;
print "Curritos \n";
for ( @$ary ) {
  print "Nombre $_->[0], Apellidos  $_->[1]\n";
}

$dbh->update('prueba2',"puesto='daboss'","puesto like '%coleg%'");

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