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