perl-static-dynamic-scope.pl

# Perl example of static and dynamic scopes
 
$x = 10;
 
sub print_x {
  print $x;
}
 
sub static {
  my $x = 20; # doesn't affect
  print_x(); # 10, not 20
}
 
static();

sub dynamic {
  local $x = 20; # affects!
  print_x(); # 20, not 10! 
}
 
dynamic();