############
# Update the database
# @param1: the table to be updated
# @param2: the hash containing the data to be inserted into the databa
+se
# returns 1 if succesfull
############
sub updateDB 
{
   my $table = shift;
   my ($hashref) = @_;
   my (%hash) = %$hashref;

   my @fields;
   @fields = keys %hash;

   my $fields = join(', ', @fields);
   my $values = join(', ', map { $dbh->quote($_) } @hash{@fields});
   my $sql = "INSERT into $table ($fields) values ($values)";
   my $sth = $dbh->prepare($sql);
   $sth->execute();
   $sth->finish();
   
   return 1;
}
[download]

ok thanks, I think this is what I was looking.

Take a look at this article: A Short Guide to DBI.

This article is very brief, but is Postgres specific.

thanks to you too, it is very usefull