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