#!C:\Perl64\site\bin\perl.exe
use strict;
use warnings;
use HTML::Entities;
use CGI;
my $cgi = CGI->new();
my $nick = $cgi->param('nick');
my $pic = $cgi->param('pic');
my $say = $cgi->param('say');
my $likes = $cgi->param('likes');
my $fav = $cgi->param('fav');
my $car = $cgi->param('car');
my $age = $cgi->param('age');
my $town = $cgi->param('town');
my $drink = $cgi->param('drink');
my $wpage = $cgi->param('wpage');
encode_entities($_)
for $nick, $pic, $say, $likes, $fav, $car, $age, $town, $drink, $wpage;
open(my $fh, '>>', 'drivers.html');
print "Content-type:text/html\r\n\r\n";
print $fh "$nick
Says $say
Likes $likes
Favorite vehicle $fav
Real life car/vehicle $car
Age $age
Hometown $town
Favorite drink $drink
$wpage
\n";
print "";
close $fh;