Distribuzione usata

##

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