Select Code to Download

sub insert {
   my ($self,$table,@values)=@_;
...
   $dbh->do($query);
}

:
:
...
my $sth=$dbh->prepare($sql) 
    or die $dbh->errstr;
$sth->execute(@values) or die $sth->errstr;