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