Select Code to Download

@files = glob("/bin/*");
@sorted = 
...
        map { sprintf "%012d %d", -s $files[$_], $_ } 
        0..@files-1];
print "@sorted$/";

my @h = map -s, @files;
@results = @files[sort {$h[$a]<=>$h[$b]} 0..@h-1];