Select Code to Download

{
  my $var = 0;
  sub getvar { $var++ }
}

print persist(), "\n";
print persist(), "\n";
...
    my $var if 0;
    ++$var;
}

1
2
3