CHAP password using perl