my $value;
sub foo : lvalue {
    $value 
}
foo() = "Bar";  
print "$value\n";
__END__
Bar