Node and libuv port to pure perl