This doesn't work. It prevents the error message, but what it actually does is

• Creates an anonymous array containing the glob.
• It then shares the anonymous array--but when you share an array, all its contents are silently discarded!

  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!
  [download]