my $nick = $cgi->param('nick');
...
my $wpage = $cgi->param('wpage');
my $nick = encode_entities($nick, '<>&"');
...
my $wpage = encode_entities($wpage, '<>&"');
####
my ($nick, $pic, $say, $likes, $fav, $car, $age, $town, $drink, $wpage)
= map { encode_entities($cgi->param($_), '<>&"') }
qw ( nick pic say likes fav car age town drink wpage);
##
##
use constant CGI_PARAMS => qw(
nick pic say likes fav car age town drink wpage
);
my %param =
map { $_ => encode_entities($_, '<>&"') }
map { $cgi->param($_) }
CGI_PARAMS
;
...
print $fh <<"EOHTML";
$param{'nick'}
Says $param{'say'}
Likes $param{'likes'}
Favorite vehicle $param{'fav'}
Real life car/vehicle $param{'car'}
Age $param{'age'}
Hometown $param{'town'}
Favorite drink $param{'drink'}
$param{'wpage'}
EOHTML