CGI - Exemplo

• #!/usr/local/bin/perl

• use CGI qw(:standard);

• print header,

• start_html('Um exemplo simples'),

• h1('Exemplo'),

• start_form,

• "Qual e' o seu nome? ",

• textfield('nome'),

• p,

• "Qual e' a sua cor preferida? ",

• popup_menu(-name=>'cor',

• -values=>['branco','verde','tinto']),

• p,

• submit,

• end_form,

• hr;

• if (param()) {

• print param('nome'), " prefere ", param('cor');

• }

• print end_html;