use strict;
# tested on 5.6/win
print mysub();
print "\n" . mysub();
{my $persistentVariable;
    sub mysub {
        $persistentVariable++;
    }
}