use strict;
use warnings;

print "calling outter from main:\n";
outter();

print "calling inner from main:\n";
inner();

print "calling outter from main:\n";
outter();

sub outter
{
    my $var = 0;
    print "  outter: $var\n";
    print "    calling inner, should increment 0 -> 1\n";

    inner();

    sub inner
    {
        print "    inner: $var -> ";
        $var++;
        print "$var\n";
    }
}