#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $cgi=new CGI; #read in parameters
#iterate over each parameter name
foreach ($cgi->param()) {
#modify and set each parameter value from itself
$cgi->param($_,ucfirst(lc($cgi->param($_))));
}
print $cgi->header(); #print a header
print $cgi->start_html("Welcome"); #generate HTML document start
print "Welcome, ",$cgi->param('first')," ",$cgi->param('last'),"
";
print $cgi->end_html();