Select Code to Download

use File::Slurp;

my $dir = '.';      # or whatever

my @files = sort grep { -f "$dir/$_" } read_dir($dir);