$SIG{INT} = sub{ foreach(@threads){$thread_exit{$_} = 1;} };