Select Code to Download

use v5.30;
use strict;
...

counter();
say "getter => ", getter();

use v5.30;
use strict;
...

my $got = counter();
say "got => ", $got;

{
  my $foo = 123;
...
    ...;
  }
}

sub myfunc {
  state $foo = 123;
  ...;
}

{
  my $foo;
...
    ...;
  }
}