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

##</code><code>##

use threads; #added
use threads::shared;

  my $var : shared;

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