my $t = threads->new (sub{
         local $SIG{'USR1'}=sub {threads->exit();};
         \&$functions_name(@parameters);
      });

my $result = $t->join();