Select Code to Download

my $var;

sub foo {
  $var++;
}

sub foo {
...
    $var++;
  }
}

sub foo {
  ...
...
my $var = 0;
foo();
bar();

main();

...
sub bar {
  ...
}