in reply to Problem with do statement

the open .. or do { .. } is a single statement, and should be ended with a semicolon. 

}; # end do

[download]
should work.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom