15 Thread::Cleanup::register {
16 my $tid = threads->tid;
17 print "finished thread $tid";
21 my $tid = threads->tid;
22 print "running thread $tid";
31 my $thr = threads->create(\&worker);
34 print "spawned thread $tid";
39 print "joined thread $tids[0]";
42 print "detached thread $tids[1]";