如何使用Perl创建HTML弹出菜单？

Question

我需要使用Perl创建HTML弹出菜单。任何人都可以帮助我吗？

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;