Select Code to Download

opendir my $dh, $DIR or die "Error opening $DIR: $!";
my @files = sort { $b->[10] <=> $a->[10] }
...
closedir $dh;

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