Select Code to Download

sub insert {
  my $self = shift;
...
  my $sth = $dbh->prepare($sql) or die $dbh->errstr;
  $sth->execute(@$values) or die $sth->errstr;
}

  $obj->insert($tablename, \@column_names, \@values)