use strict; use diagnostics;
up();
up();
print "getfoo=",get();
{
my $foo = 20;
sub up {
    print "subup=$foo\n";
    $foo++;
sub get {$foo}
}
}

prints:

subup=
subup=1
getfoo=2