use strict; use warnings; use CGI qw(:standard); print header,start_html; if (param('Spedisci')) { print pre( 'nome = ', param('nome'), "\n", 'conosciuto = ', param('conosciuto'), "\n", 'distro = ', param('distro'), "\n", ); } else { print "nothing submitted!"; } print end_html;