Как я могу сделать всплывающее меню HTML с Perl?

Question

Мне нужно создать всплывающее меню HTML, используя Perl. Кто-нибудь может мне помочь?

Answer 1

Используйте следующий код:

#!/usr/bin/perl 

use CGI qw/:standard/; 

print header, 
    start_html('Favorite Food'),
    start_form, "What's your favorite Food? ", 
    popup_menu(
        -name   => 'food',
        -values => [ qw( Juice Cake Chocolate Fruits ) ] 
        ), 
    submit,
    end_form, 
    end_html;