$sth = $dbh->prepare($sql);
do {
    while(my $row = $sth->fetch) {
        print "@$r\n";
    }
} while($sth->{syb_more_results});