Help for this page

Select Code to Download


  1. or download this
    {
      my $var = 0;
      sub getvar { $var++ }
    }
    
  2. or download this
    print persist(), "\n";
    print persist(), "\n";
    ...
        my $var if 0;
        ++$var;
    }
    
  3. or download this
    1
    2
    3