perl common lib based on mojo