my $quote = $dbh->dbquote( $uname );

my $sql = <<SQLCODE;
SELECT
  uname
  ,pwd
FROM
  login
WHERE
  uname=$quote
SQLCODE

##</code><code>##

SELECT
  uname
  ,pwd
FROM
  login
WHERE
  uname='leander\@whatever.com'
SQLCODE