package Foo; 
{ 
    my $bar = 'some default'; 
    sub bar : lvalue { $bar }
}