use Win32::OLE;

my $userobj = Win32::OLE->GetObject('LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com');
$userobj->ChangePassword('oldpass', 'newpass');