sub insert {
   my ($self,$table,@values)=@_;
   my $query = sprintf("insert into %s values (%s);",
                          
                           $table,join(",",@values));
   $dbh->do($query);
}


##</code><code>##

:
:
my $sql=sprintf("insert into %s values (%s);",$table,
                           join(",",map{ "?" } @values));
my $sth=$dbh->prepare($sql) 
    or die $dbh->errstr;
$sth->execute(@values) or die $sth->errstr;