Select Code to Download

opendir my $d, $dir;

my @f = sort { -M $b <=> -M $a } readdir $d;

my @file_list =  sort { -M $b <=> -M $a }
                 grep -f, readdir $dir_handle;

unlink @f[-0,1] if @f > 20;

use File::Spec 'catfile';

unlink map catfile($dir, $_), @f[0,1]
  if @file_list > 20;

use File::Spec 'catfile';

...

unlink map catfile($dir, $_), @f[0,1]
  if @file_list > 20;