Select Code to Download

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

use strict;
use warnings;
...
    print sort { -s $a <=> -s $b } grep -f, readdir($dir);
    closedir $dir;
}