while ((my $rows = $dbh->do(<<SQL)) ne '0E0') {