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

our $x = 10;

print "\$x:\n";
Dump($x);

*y = \$x;

print "\$main::y:\n";
Dump($main::y);


{
    my $tmp = $x;
    $x = 20;

    print "\nIn block with local \$x\n";
    print "\$x:\n";
    Dump($x);

    print "\$main::x (just to note that \$x and \$main::x are the same thing):\n";
    Dump($main::x);

    print "\$main::y:\n";
    Dump($main::y);

    $x = $tmp;
}

print "\nAfter exiting the block with local \$x\n";
print "\$x:\n";
Dump($x);

print "\$main::y:\n";
Dump($main::y);