$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;