Help for this page

Select Code to Download


  1. or download this
    {
        my $x;
    ...
    }
    
    for (1..7) { print foo() }
    
  2. or download this
    sub foo {
        my $x if undef;
      return ++$x;
    }
    for (1..7) { print foo() }