Select Code to Download

      my $t = threads->create (sub{
          ## You run your thread function here
...
          #$shutdown = 1;
          ## and then exit the thread.
       });

   sleep until $shutdown;

         if ($_ != $$){
            $_->kill('KILL')->detach;
         }