>>221
package Foo;
my $shared;
sub shared_var {
if (@_) { $shared = $_[0]; }
$shared;
}