sub SQLQuote {
  my ( $data ) = @_;
  $data =~ s/'/\\'/g;
  return $data;
};

##</code><code>##

SELECT * FROM table WHERE name=? AND id=?

##</code><code>##

$dsn->Sql($SQL, $name, $id );

##</code><code>##

# Code courtesy of kudra++, errors courtesy of me
$SQL = < SQL;
  SELECT * FROM table WHERE name=? and id=?
SQL

$statement = $dbh->prepare( $SQL );
$statement->execute($name, $id);