Select Code to Download

my $foo=17;
sub quux {
  my $bar=29;
  $foo = baz($foo,++$bar)
}

use vars qw/$foo/;
sub quux {
...
  local $foo = 39;
  print quux($foo), "\n";
}