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") || $files[rand(@files)];

open(IN, "../data/texts/$file") or die $!;