use Authen::Krb5;
use Authen::Krb5::Admin;

Authen::Krb5::init_context();
my $kadm = Authen::Krb5::Admin->init_with_password($user, $pw);
my $princ = Authen::Krb5::parse_name($user); 
my $rc = $kadm->chpass_principal($princ, $pw);