$ perl -wle'
{
package foo;
sub handler {
 my $zahl = 1;
 sub getinc {
    $zahl++;
    print "*** \$zahl(2): $zahl ***<br>";
 }
 getinc();
}
}
foo::handler();
foo::handler();
foo::handler();
'
Variable "$zahl" will not stay shared at -e line 7.
*** $zahl(2): 2 ***<br>
*** $zahl(2): 3 ***<br>
*** $zahl(2): 4 ***<br>