use threads; 
use threads::shared;;
use IO::Socket::INET;;
$sock = IO::Socket::INET->new( 'localhost:12345' );;
$ref = &share( [ $sock ] );;
print $ref;;
ARRAY(0x2253c8)
print $#$ref;;
-1              #### The anonymous array is EMPTY!