diff --git a/Maintenance/git/expand_SVN_date_keyword.pl b/Maintenance/git/expand_SVN_date_keyword.pl
new file mode 100644
index 00000000000..0f9b44f8620
--- /dev/null
+++ b/Maintenance/git/expand_SVN_date_keyword.pl
@@ -0,0 +1,14 @@
+#! /usr/bin/env perl
+
+use Git;
+
+#print STDERR "$ARGV[0]\n";
+
+my $repo = Git->repository();
+
+$last_date=$repo->command_oneline("log", "--pretty=format:\"%ad\"",  "-1",  "--",  $ARGV[0]);
+
+while(<STDIN>) {
+    s/\$Date[^\$]*\$/\$Date: $last_date\$/;
+    print;
+  }