diff --git a/.gitattributes b/.gitattributes
index 480b1eef85..26e441892f 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -4369,6 +4369,7 @@ packages/fcl-xml/tests/xmlts.pp svneol=native#text/plain
 packages/fpmake.pp svneol=native#text/plain
 packages/fpmkunit/Makefile svneol=native#text/plain
 packages/fpmkunit/Makefile.fpc svneol=native#text/plain
+packages/fpmkunit/examples/ppu2fpmake.sh svneol=native#text/plain
 packages/fpmkunit/fpmake.pp svneol=native#text/plain
 packages/fpmkunit/src/fpmkunit.pp svneol=native#text/plain
 packages/fv/Makefile svneol=native#text/plain
diff --git a/packages/fpmkunit/examples/ppu2fpmake.sh b/packages/fpmkunit/examples/ppu2fpmake.sh
new file mode 100755
index 0000000000..1a1725559b
--- /dev/null
+++ b/packages/fpmkunit/examples/ppu2fpmake.sh
@@ -0,0 +1,24 @@
+#!/bin/sh
+
+ppudump=ppudump
+
+for f in $*; do
+  $ppudump -vim $f | awk "
+BEGIN { first=1; }
+/^Source/ {
+  if (first==1)
+  {
+    printf(\"T:=P.Targets.AddUnit('%s');\\n  with T.Dependencies do\\n    begin\\n\",\$5);
+    first=0;
+  }
+  else
+  {
+    printf(\"      AddInclude('%s');\\n\",\$5);
+  }
+}
+/^Uses unit/ {
+  printf(\"      AddUnit('%s');\\n\",tolower(\$3));
+}
+END { if (first==0) { printf(\"    end;\\n\"); } }
+"
+done