Select Code to Download

sub TIESCALAR { bless \my $o => $_[0] }
sub FETCH { print "Tied\n" }
...
    local $x;
    $x; # => Tied
}

our $x;
{
...
    tie $x => 'main';
}
$x; # nothing (except a warning about void context)