SQL::Abstract

use SQL::Abstract;

my $data = {
name => 'hoge',
value => 'hoge
};

my $sql = SQL::Abstract->new;
my($statement, @bind) = $sql->insert('table_name', $data);
my $sth = $dbh->prepare($statement);
$sth->execute(@bind) || warn $DBI::errstr;
$sth->finish();

my ($statement, @bind) = $sql->delete( 'table_name', { id => 1111 } );