my $foo;
my $foo_new;

sub fooz : lvalue
{
     $foo;
}

$foo = "Bar";      # Initialization
print fooz,"\n";   # Reading
fooz = "Foo";      # Assignment
print fooz,"\n";   # Reading