sub Tie::TIESCALAR { return bless \$_[1] => $class }
sub Tie::FETCH { return ${$_[0]} }
sub Tie::STORE { $_[0] = "I'm not tied any more" }