Select Code to Download

print header( -charset=>'utf8' );
my $article = param('select') || "Αρχική
+ Σελίδα!";
...
   unless ( grep  /^\Q$_\E$/, @menu_files )  #Unless user selection do
+esn't match one of the valid filenames within @display_files
   {
......

print header( -charset=>'utf8' );
my $article = param('select') || "Αρχική
+ Σελίδα!";
...
   $select->execute( $article, $date, $host );
}
else {

for ($data) {  #Replace special chars like single & double quotes to i
+ts literally values
   s/\n/\\n/g;
...
   s/"/\"/g;
   tr/\cM//d;
}

print header( -charset=>'utf8' );
my $article = param('select') || "Αρχική
+ Σελίδα!";
...
   unless ( grep  /^\Q$_\E$/, @menu_files )  #Unless user selection do
+esn't match one of the valid filenames within @display_files
   {
......