print header( -charset=>'utf8' );
my $article = param('select') || "Αρχική Σελίδα!";

my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";
my @menu_files = map m{([^/]+)\.txt}, @files;
Encode::from_to($_, 'ISO-8859-7', 'utf8') for @menu_files;

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

   $article = encode( 'utf8', $article );
   unless ( grep  /^\Q$_\E$/, @menu_files )  #Unless user selection doesn't match one of the valid filenames within @display_files
   {
......