P:\test>perl -Mthreads -Mthreads::shared 
-wle"my $a = 1; print $a; share( $a ); print $a "
1
1