sub thr_func
{
  # Thread 'cancellation' signal handler
  $SIG{'KILL'} = sub { threads->exit(); };
  ...
}