opendir my $dh, $DIR or die "Error opening $DIR: $!";
my @files = sort { $b->[10] <=> $a->[10] }
    map {[ $_, CORE::stat "$DIR/$_" ]}
    grep !m/^\.\.?$/, readdir $dh;
closedir $dh;

my ($name, @stat) = @{$files[0]};