diff --git a/.github/scripts/verify-titles.pl b/.github/scripts/verify-titles.pl
new file mode 100755
index 0000000000..07b9bdb900
--- /dev/null
+++ b/.github/scripts/verify-titles.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+my $sum = shift @ARGV;
+
+# Figure out all files in right order
+open(F, "<$sum");
+while(<F>) {
+    if($_  =~ /\[(.*)\]\(([^\)]*)\)/) {
+        my ($title, $file) = ($1, $2);
+        push @files, $file;
+        $title{$file} = $title;
+    }
+}
+close(F);
+
+sub check {
+    my ($f) = @_;
+    open(F, "<$f");
+    while(<F>) {
+        if(/^# (.*)/) {
+            # verify
+            if($1 ne $title{$f}) {
+                printf STDERR "$f says '%s', not '%s' like SUMMARY.md\n",
+                    $1, $title{$f};
+                $errors++;
+            }
+            last;
+        }
+    }
+    close(F);
+};
+
+for my $f (@files) {
+    check($f);
+}
+
+exit $errors;
diff --git a/.github/workflows/verify-titles.yml b/.github/workflows/verify-titles.yml
new file mode 100644
index 0000000000..c9d173b083
--- /dev/null
+++ b/.github/workflows/verify-titles.yml
@@ -0,0 +1,24 @@
+# Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
+
+name: verify-titles
+on:
+  push:
+    branches:
+      - master
+    paths:
+      - '**.md'
+  pull_request:
+    branches:
+      - master
+
+permissions: {}
+
+jobs:
+  check:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v4
+
+      - name: build pdf
+        run: .github/scripts/verify-titles.pl SUMMARY.md
+