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

print start_form(-action=>"index.pl");
print table( {-width=>"80%", -align=>"center", -style=>"border: ridge lightgreen; color: yellow; font-size: 18", -background=>"../data/images/blue.jpg"} );
   foreach (@files) {
      $_ =~ s/.*[\/\\](.*)/$1/;
      print Tr( {-align=>'center'}, td( submit(-name=>'file', -value=>$_ )),
                                    td( submit(-name=>'file', -value=>$_ )),
                                    td( submit(-name=>'file', -value=>$_ )),
                                    td( submit(-name=>'file', -value=>$_ )));
   }
print end_form(), br(), br();