BEGIN {
    my $static_val = 0;
    sub gimme_another {
        return ++$static_val;
    }
}

# - OR - in Perl >=5.10:

use feature 'state';
sub gimme_another {
    state $static_val = 0;
    return ++$static_val;
}