Select Code to Download

my @files = <../data/text/*.txt>;
my @display_files = map /([^\/]+)\.txt/, @files;
...
{
    open(FILE, "<../data/text/$passage.txt") or die $!;
.....

use POSIX qw(strftime);
use Encode;
...

my $host = gethostbyaddr (pack ("C4", split (/\./, $ENV{'REMOTE_ADDR'}
+)), 2) || $ENV{REMOTE_ADDR};
$host = "Νίκος" if ( ($host =~ /dell/) or ($h
+ost =~ /dsldevice/) or ($host =~ /localhost/) );