use SQL::Abstract;

my $abstractor = SQL::Abstract->new();
my %value_of = ( name => 'Martin', age => 28 );
my ($stmt,@bind) = $abstractor->insert( 'table', \%value_of );
$dbh->do( $stmt, undef, @bind );