#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw(:standard);

my %label = (
   mdk    => 'Mandrake',
   debian => 'Debian',
   slack  => 'Slackware',
   red    => 'Red Hat!!',
);

print header,start_html,start_form,
   "Quale e' il tuo nome e cognome?",
   textfield('nome'), br(),
   'Come hai conosciuto linux?',
   textarea('conosciuto'), br(),
   'Quale distro usi?', br(),
   popup_menu(
      -name   => 'distro',
      -values => [keys %label],
      -labels => \%label,
   ), br(),
   submit(-name=>'Spedisci',-value=>'Invia'),
   end_form,
;

if (param('Spedisci')) {
   print pre(
      'nome = ', param('nome'), "\n",
      'conosciuto = ', param('conosciuto'), "\n",
      'distro = ', param('distro'), "\n",
   );
}

print end_html;