Problems with Pg::doQuery

Well, I have been using $result->getvalue up to now, and individually
accessing records in my databases, but I thought I would try the 'easy'
way now.  So much for that idea...
I took this example script, (taken from the 'perldoc pg') and ran it,
but get no results no matter what.  (It actually comes from a much
bigger script of course)
The search returns results when executed directly, but via Pg::doQuery I
seem to never get any results.. is it a flaw in the documented example?
I had thought it might be the use of LIKE vs ~ at first, but after
sorting that all out I realized that it was never returning anything,
unless I have made a stupid syntax error that I am too blind to
see.....(nawww... that never happens...)

----<pasted>------
#!/usr/bin/perl
#
# List By Alphabet
# This script takes a look at all clients  in the
# database 'people' and allows it to be updated.
#
###########################################################################

# Variable List
#
use Pg;
$conn=Pg::connectdb("dbname=people");

###########################################################################

   Pg::doQuery($conn,"SELECT id,firstname,lastname,company
                         FROM clients
#                         WHERE lastname ~ '$sortby'
#                         OR lastname ~ 'lower($sortby)'
#                         ORDER BY lastname ASC
                      ", \@clients);
# TEST SECTION
for $i (0 .. $#clients) {
   for $j (0 .. $#{$clients[$i]} ) {
      print "$clients[$i][$j]\t";
   }
}
# END TEST SECTION
print @clients;