TIMTOWTDI

#!/usr/bin/perl

use strict; # https://www.perlmonks.org/?node_id=11154077
use warnings;
use List::AllUtils qw( min_by );

my $dir = '.'; # FIXME to your path

my $mostrecent = min_by { -M } <$dir/*>;

print "most recent file: $mostrecent\n";
[download]