$select = $db->prepare( "SELECT username FROM users" );
$select->execute;
my @userlist = $select->fetchrow_array;

print start_form( action=>'/cgi-bin/index.pl' );
    print h1( {class=>'lime'},  "Επέλεξε το κείμενο που σε ενδιαφέρει => ",
                                popup_menu( -name=>'select', -values=>\@userlist ),
                                submit('Εμφάνιση'));
print end_form;

##</code><code>##

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 ))),