use strict;
{
    my $var = 1;
    sub test {
        print "var was '$var'\n";
        $var++;
        print "var is now '$var'\n";
    }
}

test();
exit 0;