use forks;
use forks::shared;
my %foo = (bar => "foo\n");
share( %foo );
print %foo;
__END
barfoo