use strict;

my $test1 = 1;
{
    my $test2 = 2;
    print " Inside:  test1 = [$test1]  test2 = [$test2]\n";
}
print "Outside:  test1 = [$test1]  test2 = [$test2]\n";