package hi;
sub fn
{
my $thread_signal = threads->create(\&Signal_ThreadCb,@_);

push @main::threads_pool,$thread_signal;
}

package main;
hi::fn();
hi::fn();
hi::fn();