Help for this page

Select Code to Download

Select or download this

        for (1 .. 50) {
          my $x;
          $x++;
          print "x=$x\n";
        }

Select or download this


        { my $x;
...
            print "x=$x\n";
          }     
        }