#! perl -slw
use strict;
use threads;
use threads::shared;

my $var : shared;

sub Update{
	require 'IO/String.pm';
	my $io = IO::String->new( $var ); 
	$io->print( 'Hello world' );
	$io->print( $_ ) for 1 .. 10;
};

my $th=threads->new( \&Update ); 
$th->join();

print "'$var'";
__END__
P:\test>368516
'Hello world
1
2
3
4
5
6
7
8
9
10
'