BEGIN { my $number = 0; sub gimme { ++$number; } }