$key->RegNotifyChangeKeyValue(
    $bWatchSubtree, $uNotifyFilter, $hEvent, $bAsync )
  or  die "Can't watch for changes: $^E\n";