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

##</code><code>##

print persist(), "\n";
print persist(), "\n";
print persist(), "\n";

sub persist {
    my $var if 0;
    ++$var;
}

##</code><code>##

1
2
3