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