Select Code to Download

#! /usr/bin/perl -w
...
my  $t1 = new Benchmark;
my  $td1 = timediff($t1, $t0);
  print STDERR "the code took:",timestr($td1,'all')," to do dots\n";

silly@bluetit:~/perl/threads$ nothread.pl
Number of Dots to compute: 117369
the code took:94 wallclock secs (80.81 usr 13.03 sys +  0.00 cusr  0.0
+0 csys = 93.84 CPU) to do dots

silly@bluetit:~/perl/threads$ cat thread.pl
#! /usr/bin/perl -w                        
...
        print "Thread Message is $message\n";
        return (%synsetDotHash);
}

silly@bluetit:~/perl/threads$ thread.pl
Number of Dots to compute: 117369
...
Thread Message is test1
Thread Message is test4
the code took:23 wallclock secs (70.72 usr 12.29 sys +  0.00 cusr  0.0
+0 csys = 83.01 CPU) to do threaded dots