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'}