do not use perl functions call from another threads