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

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 )), br();
print end_form();

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

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

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