{
	my $foo;
	sub foo { $foo++ }
}
...
foo();
foo();
...