do {block}Executes the sequence of commands in
the block and returns the value of the last
expression evaluated.
When modified by a loop modifier, Perl
executes the block once before testing the loop
condition. (On other statements, the loop modifiers test the
conditional first.)
