in reply to The Naughty Nought "OEO" blues

Could you change your while loop to: 
while ((my $rows = $dbh->do(<<SQL)) ne '0E0') {

[download]
? I realize that it kind of glosses over your question, but it should get you by.

thor

Feel the white light, the light within
Be your own disciple, fan the sparks of will
For all of us waiting, your kingdom will come

In Section Meditations