use strict;
use warnings;

my $var = 10;
{
    my $var = 20;
    print $var, "\n";
}
print $var, "\n";

__OUTPUT__
20
10