$thr1 = threads->new(\&manager);

while (1){sleep(1);}