How do i encrypt my password correctly using perl?

Question

I have tried to encrypt my password with perl when adding a user using a script but when i try to switch to that user, it says the password is incorrect. Here is what i wrot