##
$inter->{THR} = ref threads->create(sub{$thread->(\$inter->{INT1})});
##
##
$t = async{ sleep 1000 };;
print ref $t;;
threads
##
##
Usage: $thr->kill('SIG...') at HardThread.pm line 23.
##
##
$inter->{THR} = threads->create(sub{$thread->(\$inter->{INT1})});
##
##
Invalid value for shared scalar at HardThread.pm line 29.
##
##
$inter->{THR} = shared_clone( threads->create(sub{$thread->(\$inter->{INT1})}) );