if ($myDomain = Win32::OLE->GetObject("WinNT://$server/$pworduser")) {
    $result=$myDomain->ChangePassword($oldpassword, $newpassword);
    print "Result: $result\n";
}
else {
    print "Couldn't connect  :-(\n";
}