use 5.010;
use strict;
use warnings;
persist();
INIT {
    my $store = init_store();
    sub persist {
        say $store++;
    }
}
persist();
persist();

sub init_store { 0 }
__END__
0
1
2

##</code><code>##

Undefined subroutine &main::init_store called at /tmp/xxx line 10.
BEGIN failed--compilation aborted at /tmp/xxx line 14.