use threads;
threads->create(sub {})->join while 1;