Select Code to Download

for ( 1..2 ) {
    threads -> create ( \&worker );
}

for ( 1..2 ) {
   my $temp_scalar = threads -> create ( \&worker );
}

$ perl pm_1228826.pl
sum=1
sum=2

use strict;
use warnings;
...
    my $sum=$thr -> join;
    print "sum=$sum\n";
}