sub insert{
    my $self = shift;
    my $dbh  = ref $_[0] ? shift : $self->dbh('myweb');
    my $tabn = shift; 
    my %hunt = @_;
    my @fields = keys %hunt;
    $dbh->do(qq(
        INSERT INTO @{[$dbh->quote_identifier($tabn)]} (@{[join ',', map{$dbh->quote_identifier($_)}@fields]}) 
        VALUES( @{[join ',', map{$dbh->quote($_)}@hunt{@fields}]} )
    ));
    
    my @row = $dbh->selectrow_array("SELECT LAST_INSERT_ID()");
    return $row[0];
}