my $thr = threads->new(stack_size => 65535);