$inter->{THR}->kill('SIGTERM');

##</code><code>##

    $inter->{THR} = ref threads->create(sub{$thread->(\$inter->{INT1})});

##</code><code>##

$t = async{ sleep 1000 };;

print ref $t;;
threads

##</code><code>##

Usage: $thr->kill('SIG...') at HardThread.pm line 23.

##</code><code>##

    $inter->{THR} = threads->create(sub{$thread->(\$inter->{INT1})});

##</code><code>##

Invalid value for shared scalar at HardThread.pm line 29.

##</code><code>##

    $inter->{THR} = shared_clone( threads->create(sub{$thread->(\$inter->{INT1})}) );