my @titlelist;
open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/vault/titlelist.txt" or die $!;
     @titlelist = <FILE>;
close FILE;

print br() x 3;
print start_form( action=>'/cgi-bin/admin.pl' );
  print table( {class=>'user_form'},
     Tr( td(  '&#928;&#941;&#962; &#956;&#959;&#965; &#964;&#953; &#952;&#945; &#942;&#952;&#949;&#955;&#949;&#962;:'                   ),  td( popup_menu( -name=>'title' -values=>\@titlelist ))),