$dbh->SELECT
     " :name, :email
      from ...
      where
        DIAPER LIKE ?
      ",
     'soft and absorbant'
{
    print "$name < $email >\n";
}