Select Code to Download

# Send a signal to a thread
   $thr->kill('SIGUSR1');

#!/usr/bin/perl
use warnings;
...
   sleep 1;
  }
}