use DBIx::Simple;
my $db = DBIx::Simple->connect(...);
$db->query('UPDATE ... SET foo=?, bar=?', $foo, $bar);