sub query_as_string {
  my ($sql, @bind)=@_;

  # [14:50] <ilmari> metaperl: s/\?/$dbh->quote(shift @bind)/ge

  $_ = $sql;

  s/\?/$dbh->quote(shift @bind)/ge ;

  $_;
}