script/program to change the password ?

hi,
Somebody have or known where i can find a perl small perl program to change the password.
The point: First it verify is the user exist, checking the old typed password and replace it with new. The passwords must be encoded.

Thanks, very much!