files = <../data/texts/*>;

foreach (@files) {
   $_ =~ s/.*[\/\\](.*)/$1/;
}

print start_form(-action=>"index.pl");
   print p( {-align=>'center'}, font( {-size=>5, -color=>'Lime'}, 'Λόγ
+ος Ψυχωφελής και Θαυμάσιος => ' ),
                                popup_menu( -name=>'select', -values=>
+\@files ),
                                submit('ok'));
print end_form();

$file = param("select") or $files[int(rand(@files))];

open(IN, "<../data/texts/$file") or die $!;
   @data = <IN>;
close(IN);

$data = join("", @data);
$data =~ s/\n/\\n/g;