package Foo;
my $bar = 'some default'; 
sub bar_ref {
    return \$bar; 
}