Select Code to Download

P:\test>512584
1 started h(100)
...
tid(3) priority(-1) received 3 timeslices
tid(2) priority(-2) received 2 timeslices
tid(1) priority(-15) received 2 timeslices

P:\test>512584
1 started h(104)
...
tid(5) priority(1) received 5117 timeslices
tid(4) priority(0) received 5114 timeslices
tid(3) priority(-1) received 5099 timeslices

#! perl -slw
use strict;
...
$go = 0;

sleep 1 while $running;