Select Code to Download

opendir (DIR, $dir) or die $!;
my @textFiles = grep /\.txt/, readdir DIR;

    my $text_file_out = $text_file;
    $text_file_out =~ s/\.txt//;
    $text_file_out = $text_file_out . '_new.txt';