Select Code to Download

opendir my $d, $dir or die "Can't readdir $dir: $!";
my @files =
...
  @files;

unlink @sorted[ 0, 1 ] if @sorted > 20;

my @sorted = sort { -M $b <=> -M $a } @files;