Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
push @thr, threads->create( sub { 1; } ) for 1 .. $N;
$_->join for (@thr);
say time - $t;
  2. or download this
    use strict;
use warnings;
...
push @thr, threads->create( sub { require Chart::Clicker; } ) for 1 ..
+ $N;
$_->join for (@thr);
say time - $t;