Select Code to Download

  use threads;
  use threads::shared;
...
  if (threads::shared::_id($var)) {
      print("'\$var' is shared\n");
  }