diff --git a/agestat/agestat b/agestat/agestat
new file mode 100755
index 0000000..c25d519
--- /dev/null
+++ b/agestat/agestat
@@ -0,0 +1,53 @@
+#!/usr/local/bin/perl
+
+use File::stat;
+use File::Find;
+
+$now = time();
+$log_2 = log(2);
+
+sub wanted {
+
+    $st = lstat($_);
+    $age = $now - ($st->atime > $st->mtime ? $st->atime : $st->mtime );
+    #print $File::Find::name, ": $age sec, ", $st->size, " bytes, ", $st->nlink, " links\n";
+    $log2age = log($age >= 1 ? $age : 1) / $log_2;
+    $hist[$log2age] += $st->size / $st->nlink;
+}
+
+sub logtime2str {
+    my ($lt) = (@_);
+
+    $t = 1 << $lt;
+
+    if ($t < 60) {
+	return sprintf ("%5.1f s", $t);
+    } elsif ($t < 3600) {
+	return sprintf ("%5.1f m", $t/60);
+    } elsif ($t < 3600 * 24) {
+	return sprintf ("%5.1f h", $t/3600);
+    } elsif ($t < 3600 * 24 * 365.2422) {
+	return sprintf ("%5.1f d", $t/(3600*24));
+    } else {
+	return sprintf ("%5.1f y", $t/(3600*24*365.2422));
+    }
+}
+
+
+find(\&wanted, @ARGV);
+
+print "\n\n";
+
+$sum = 0;
+
+for ($i = 0; $i <= $#hist; $i++) {
+    $sum += $hist[$i];
+}
+
+for ($i = 0; $i <= $#hist; $i++) {
+    $h = $hist[$i];
+    $c += $h;
+    printf("%2d\t%s\t%12.0f\t%5.1f\t%12.0f\t%5.1f\n", $i, logtime2str($i), $h, $h * 100 / $sum, $c, $c * 100 / $sum);
+}
+print("#-------------------------------------------\n");
+printf("total\t\t%12.0f\t%5.1f\n",  $sum, $sum * 100 / $sum);