{
    my $foo;
    sub foo () :lvalue { $foo }
}

foo = 'bar';
print foo, $/;