Select Code to Download

Can't locate object method "join" via package "threads=SCALAR(0x81e2d5
+0)0" (perh
aps you forgot to load "threads=SCALAR(0x81e2d50)0"?) at ./thread1 lin
+e 15.
A thread exited while 2 other threads were still running.
panic: MUTEX_DESTROY.

#!/usr/bin/perl -w 
use threads; 
...

set    sec1     [clock seconds]
puts $file "$sec1"