# file Foo.pm
use strict;
package Foo.pm
my  $bee = 2; # lexical variable

sub foo {
 return $bee++;
}