Select Code to Download

{
    my $state = 42;
...

say closed_sub();  # 42
say closed_sub();  # 43

{
    our $state = 42;
...
say open_sub();    # 42
$main::state = 666;
say open_sub();  # 666