Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

    sleep 1 while 1;
}

Select or download this

5 threads in 0.079028 seconds == 63 threads/second

...
1062803575.12621: Caught SIGALRM in thread 3
1062803575.14616: Caught SIGALRM in thread 4
1062803575.15617: Caught SIGALRM in thread 5