select username from user where address=foo@ebi-llc.com

##</code><code>##

    my $sql = qq(select username from user where address=?);
    my $sth1 = $dbh->prepare($sql);
    $sth1 -> execute ($address);