git-oldest

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Time::Piece;

open my $GIT, '-|', qw{ git log --name-status --reverse };

my $date;
my %last_touched;
while (<$GIT>) {
    if (my ($date_string) = /^Date:\s+(.*)/) {
        $date = 'Time::Piece'
            ->strptime($date_string, '%a %b %d %H:%M:%S %Y %z')->epoch;

    } elsif (my ($file) = /^[ACDMRTUXB]\s+(.*)/) {
        $last_touched{$file} = $date
            if $file =~ /\.(?:p[lm]|pwt|t)$/ && -f $file;
    }
}

for my $file (
    sort { $last_touched{$b} <=> $last_touched{$a} } keys %last_touched
    ) {
    say $file;
}