package Tie::Fooz;
sub TIESCALAR { bless \(my $dummy), $_[0] }
sub FETCH { ${ $_[0] } }
sub STORE { ${ $_[0] } = $_[1] }

package main;
tie my $foo, 'Tie::Fooz';