@files = <../data/texts/*.txt>;
$file  = $files[int(rand(@files))];

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

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

print table( {-width=>"90%", -align=>"center", -style=>"border: ridge lightgreen; color: yellow; font-size: 18", -background=>"../data/images/blue.jpg"},

   foreach(@files) {
      Tr( td( {-align=>'center'}, font( {-size=>5, -color=>'white'}, b( $file )))));
      Tr( {-align=>'center'}, td( submit( $file )))));
   }