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