Select Code to Download

sub foo{
  my $x if 0;
...
  print "BAR: ", $x--, "\n";
}
foo, bar for (1..10);

sub foo{
  print "FOO: ", $x++, "\n";
...
  print "BAR: ", $x--, "\n";
}
foo, bar for (1..10);

sub STATIC_VARIABLE{ 0 }

...
  STATIC_VARIABLE && my $x;
  print "FOO: ", $x++, "\n";
}