#!/usr/bin/perl use strict; my @campi; print "Content-type:text/html\n\n"; print "Distribuzione usata\n"; print "\n"; @campi = split(/\&/,$ENV{'QUERY_STRING'}); print "Il tuo nome e cognome e': $campi[0]
"; print "\n"; print "\n";