package Foo; 
my $bar = 'some default'; 
sub bar {
    $bar = shift if @_; 
    return $bar;
}