#!/usr/bin/perl
use strict;
use CGI ':standard';
my ($gender, $age, $ethnicity, $relationship);
$gender= param('gender');
$age= param('age');
$ethnicity= param('ethnicity');
$relationship= param('relationship');
open (INFO, ">>$ENV{'DOCUMENT_ROOT'}/www/data/demographics.txt");
print INFO qq($gender, $age, $ethnicity, $relationship\n);
close (INFO);
print "Content-type: text/html\n\n";
print 'Thank you for participating in this research!';
The error I get refers to an uninitialized value in concatenation on line 13. The code I have above is everything so line 13 is the 13th line in that starts print INFO qq...
Any ideas of what I might be doing wrong? I checked two books I have on Perl and can't seem to figure it out.
Thanks!