Select Code to Download

...
   print "create thread\n";
...
   $run = 0;
   $thread->join;
}

   $thread = threads->new(\&LTG::scanChange::monitor());

sub test{ print 'Hello world' }

...
print \&test()
Hello world
SCALAR(0x1bc2d18)

thread failed to start: Not a CODE reference at ...

# Do some stuff
$thread->new( ...); # start a thread
...

$thread->join; # Wait for the thread to finish.
# do some other stuff.