--- /dev/null
+#!/usr/bin/perl -w
+
+@commits = `git log --pretty=format:"%ct"|sort -n`;
+$i = 1;
+open GNUPLOT, "|gnuplot -persist";
+print GNUPLOT <<EOF;
+set xdata time
+set timefmt "%s"
+set format x "%m/%y"
+set xlabel "Date"
+set ylabel "Commit number"
+plot '-' using 1:2 notitle
+EOF
+foreach (@commits) {
+ chop;
+ print GNUPLOT "$_ $i\n";
+ $i++;
+}
+print GNUPLOT "e\n";
+
+# set xdata time
+# set timefmt "%m/%d/%y"
+# set xrange ["03/21/95":"03/22/95"]
+# set format x "%m/%d"
+# set timefmt "%m/%d/%y %H:%M"
+# plot "data" using 1:3