try to use threaded perl