Select Code to Download

sub outer {
 ...
...
 }
 ...
}

{
  my $hidden_data;
...
   ...
  }
}

sub outer {
  my $lexical = ...;
...
  #or even
  return $inner;
}

my $hash{key} = ...; # is illegal
local $hash{$key} = ...; # is legal
...
my $x = 1;
{
  local $x = 2; # is illegal. Can't localize a lexical variable

our $variable = 15;

...

one();
two();

our $variable = 15;

...

one();
two();