Select Code to Download

#! perl
use strict;
...
                 sort { (-s $a // 0) <=> (-s $b // 0) }
                 grep { ! -d }
                 readdir D1;