Select Code to Download

Undefined subroutine &threads::shared::_id called at math1.pl line 5.

use threads; #added
use threads::shared;
...
  if (threads::shared::_id($var)) {#pass the var not the ref
      print("'\$var' is shared\n");
  }