#!/usr/bin/perl -w
use strict;
use warnings;
use Devel::Peek;

$main::x = 10;

{
    local $main::x = 20;

    print "$main::x\n";

}
print "$main::x\n";

##</code><code>##

20
10