Select Code to Download

sub test {
   my ($x) = shift;
...
}

test(3);  # 1,1,1

sub test {
   my ($x) = shift;
...
}

test(3);  # 1,2,3

sub foo {
   my ($x) = shift;
...
}

foo();  # 2,2

sub foo {
   my ($x) = shift;
...
}

foo();  # 2,1