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

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


if ( $file = param("choice") )
{
   open(FH, "$file") or die $!;
      @data = <FH>;
   close(FH);

   $data = join("", @data);
}