How can I make an HTML pop-up menu with Perl?

I n开发者_Python百科eed to create HTML pop-up menu using Perl. Can anyone help me?

Use the following code:

#!/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;