change password generator to perl from shell