use strict;
use warnings;

{
my $persistent = 0;
sub increment {
    print ++$persistent;
}}

increment();
increment();
increment();