Select Code to Download

use Path::Tiny qw/ path /;
my @files = path( $CosMovFolder )->realpath->children();
...
    sort { $$a[0] <=> $$b[0] }
    map { [ -m $_, $_ ] }
    @files;