C:\script\perl> changepassword.pl user1 P@ssw0rd1234
AD  : SUCCESS: user1 password changed.n
C:\script\perl>