Help for this page

Select Code to Download


  1. or download this
    use Path::Tiny qw/ path /;
    my @sorted_files =  map  { $$_[1] }
                        sort { $$a[0] <=> $$b[0] }
                        map  { [ $_->stat->mtime, $_ ] }
                        path( $CosMovFolder )->realpath->children();