BEGIN {
    my $foo = "default";
    sub foo () : lvalue { $foo }
}
print foo, $/;
foo = "special";
print foo,$/;