use My::Scalar;
tie my $x, 'My:Scalar';
my $tieobj = tied $x;

##</code><code>##

tie $hash{foo}, 'My:Scalar';

##</code><code>##

sub TIESCALAR {
  my ($class, $key, $val) = @_;
  return bless {'value' => $val,
                'key' => $key ,
                'fetched' => 0
               }, $class;
}