...
   print "create thread\n";
   my $run : shared = 1;
   $thread = threads->new(
        \&LTG::scanChange::monitor());
      # \&LTG::scanChange::monitor);
   print "Waiting 5 seconds while the thread runs\n";
   sleep 5;
  
   print "Shutting down\n";
   $run = 0;
   $thread->join;
}

##</code><code>##

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

##</code><code>##

sub test{ print 'Hello world' }

print \&test;
CODE(0x1bc2cdc)

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

##</code><code>##

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

##</code><code>##

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

sleep ...; # Sleep a while

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