use strict;
use Carp qw(carp);

sub TIESCALAR { carp $/; bless \my $var => shift;  }
sub FETCH     { carp $/; ${$_[0]} }
sub STORE     { carp $/; ${$_[0]} = $_[1]}

$_ = 'one';
{
  my $foobar;
  local $_;
  tie $_ => 'main', 'two';
}

# when above BLOCK is exited, $_ remains tied, and is reset to 'one' via a STORE

print "\ntied() of \$_ is ", tied $_, $/;