use threads;
  use threads::shared;

  my $var : shared;

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