#!/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 (?,?,?)');
$sth->bind_param(3,'chupatintas');
while(<>) {
  my ($nombre,$apellidos)=split(/\s*,\s*/,$_);
  $sth->bind_param(1,$nombre);
  $sth->bind_param(2,,$apellidos);
  $sth->execute;
}
my $rc = $dbh->disconnect();