$SQL = new SQL::Abstract;
($sql, @bind) = $SQL->select ('foo', '*', {
  foo => 1,
  bar => { in => [ 1, 2, 3 ] },
};

$sth = $dbh->prepare ($sql);
$sth->execute (@bind);