if( Win32::AdminMisc::UserCheckPassword("", $User, $Password)){
    print "Password is correct.\n";
}else{
    print "Password is not correct.\n";
}