Select Code to Download

    ref threads->create(...)

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

package HardThread;

...
};

1;

    $self->{inter}   # access to shared data
    $self->{THR}     # access to thread