Select Code to Download

my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";
my @menu_files = map m{([^/]+)\.txt}, @files;
...
   s/"/\"/g;
   tr/\cM//d;
}

if ( param('select') )  {  #If user selected an item from the drop dow
+n menu

...
Encode::from_to($article, 'utf8', 'ISO-8859-7');
open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/text/$article.txt" or die $!;
........