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

print start_form(-action=>"index.pl");
   $_ =~ s/.*[\/\\](.*)/$1/;
   print p( {-align=>'center'}, popup_menu( -name=>'select', -value=>@files ));
print end_form();