Select Code to Download

my $directory_path = undef;
my @directory_path_file_list = undef;
...
opendir DIR, $directory_path or die "Cannot open directory $directory_
+path";
@directory_path_file_list = readdir DIR;
closedir DIR;

my $text_file = undef;
my @text_file_names = undef;
...
          @text_file_names = $1;
     }
}