use threads;
use threads::shared;
my $foo = "foo\n";
share( $foo );
print $foo;
__END__
foo

##</code><code>##

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