Select Code to Download

c:\test>junk

...
tperl.exe                   2924                         0    173,516 
+K
Taken 8.761321 seconds

#! perl -slw
use strict;
...
printf "Taken %f seconds", time() - $start;

$_->join for @threads;

#! perl -slw
use strict;
...

$_->join for @threads;

my( $Xthread ) = threads->create( { suspended => 1 }, \&Xthread );
my( $Ythread ) = threads->create( { suspended => 1 }, \%Ythread );
...
my( @Yresults ) = $Ythread->join;
 ...
my( @Xresults ) = $Xthread->join;