Help for this page

Select Code to Download


  1. or download this
    do
    {
        last;
    } while (1);
    
  2. or download this
    do
    {
    ...
        print $_, "\n";
        next;
    } for (1 .. 10);