while( threads->list ) {
		for my $joinable ( threads->list( threads::joinable ) ) {
			$joinable->join;
		}
	}