{
    my $counter = 0;
    sub inc_counter { $counter++ };    # $counter is visible here
    sub get_counter { $counter };      # and here
}