my $sth = prepex (
        "select field1,  field2",
             \($field1, $field2),
        "from   table");
    while ($sth->fetch) {
        :
        }