--- a
+++ b/cvs-rlog-to-date
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+while (<>) {
+    if (/^date: (\S+)/) {
+        print "$1\n";
+        break;
+    }
+}