sub sql_quote {
  my ($entry) = @_;
  $entry =~ s/'/''/g;
  return "'" . $entry . "'";
}

##</code><code>##

$st->execute("%$bar");