{
   last unless $cond;    # while ($cond)
   stmt;
   stmt;
   stmt;
   redo;                 # wend
}