use strict;
use warnings;
use 5.010;
use threads;
use Chart::Clicker;
use Time::HiRes qw(time);
my $N = 32;
my $t = time;
my @thr;
push @thr, threads->create( sub { 1; } ) for 1 .. $N;
$_->join for (@thr);
say time - $t;