#!/usr/bin/perl
$mail_prog = '/usr/sbin/sendmail' ;
# This script was generated automatically by Perl Builder(tm): http://www.solutionsoft.com

# ***ENDAUTOGEN:HEADER*** Do NOT modify this line!!  You may enter custom code after this line.

# ***AUTOGEN:INPUT*** Do NOT modify this line!! Do NOT enter custom code in this section.
use CGI ;

$query = new CGI;

# The intermediate variables below make your script more readable
# but somewhat less efficient since they are not really necessary.
# If you do not want to use these variables, clear the
# Intermediate Variables checkbox in the Tools | Options dialog box, CGI Wizard tab.

$gender = $query->param('gender');	# 
$likewpss = $query->param('likewpss');	# 
$agegroup = $query->param('agegroup');	# 
$firstname = $query->param('firstname');	# 

# ***ENDAUTOGEN:INPUT*** Do NOT modify this line!!  You may enter custom code after this line.

# ***AUTOGEN:VALIDATE*** Do NOT modify this line!! Do NOT enter custom code in this section.

# ***ENDAUTOGEN:VALIDATE*** Do NOT modify this line!!  You may enter custom code after this line.

# ***AUTOGEN:LOGFILE*** Do NOT modify this line!! Do NOT enter custom code in this section.

# ***ENDAUTOGEN:LOGFILE*** Do NOT modify this line!!  You may enter custom code after this line.

# ***AUTOGEN:EMAIL*** Do NOT modify this line!! Do NOT enter custom code in this section.

# ***ENDAUTOGEN:EMAIL*** Do NOT modify this line!!  You may enter custom code after this line.

# ***AUTOGEN:HTML*** Do NOT modify this line!! Do NOT enter custom code in this section.
print "Content-type: text/html\n\n";
print "<HTML>\n" ;
print "<HEAD>\n" ;
print "<TITLE>Test CGI output</TITLE>\n" ;
print '<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'."\n" ;
print "</HEAD>\n" ;
print "\n" ;
print '<BODY bgcolor="#FFFFFF">'."\n" ;
print "<H1>This is the output of the mynameis CGI script.</H1>\n" ;
print "<P>Hello ".$firstname.".</P>\n" ;
print "<P>You are ".$gender.".</P>\n" ;
print "<P>The age group you are in is: ".$agegroup.".</P>\n" ;
print "<P>Whether you like WPSS: ".$likewpss.".</P>\n" ;
print "</BODY>\n" ;
print "</HTML>\n" ;

# ***ENDAUTOGEN:HTML*** Do NOT modify this line!!  You may enter custom code after this line.

# ***AUTOGEN:ERRPRINT*** Do NOT modify this line!! Do NOT enter custom code in this section.

# ***ENDAUTOGEN:ERRPRINT*** Do NOT modify this line!!  You may enter custom code after this line.

# ***AUTOGEN:PARSE*** Do NOT modify this line!! Do NOT enter custom code in this section.

# ***ENDAUTOGEN:PARSE*** Do NOT modify this line!!  You may enter custom code after this line.
