$i = 1;
{
    print "Foo\n";
    last if $i++ > 2;
} continue {
    next if $i < 3;
    last;
}


##</code><code>##

      "last", "next", or "redo" may appear within a
      "continue" block.  "last" and "redo" will behave
      as if they had been executed within the main
      block.  So will "next", but since it will execute
      a "continue" block, it may be more entertaining.