#!/usr/bin/perl

use DBI;
use CGI qw(:standard *table *Tr);

my $dbh = DBI->connect("dbi:Pg:dbname=template1");
my $sth = $dbh->prepare('insert into prueba2 (nombre,apellidos,puesto) values (?,?,?)');
while(<>) {
  my ($nombre,$apellidos,$puesto)=split(/\s*,\s*/,$_);
  $sth->execute($nombre,$apellidos,$puesto);
}
my $rc = $dbh->disconnect();