#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

$v01= $query->param('v01');
$v02= $query->param('v02');
$v03= $query->param('v03');
$v04= $query->param('v04');
$v05= $query->param('v05');

$esteem	= ($v01	+ $v02 + (6 - $v03) + $v04 + (6 - $v05))/5;
$esteem2 = sprintf("%.2f", $esteem);

print $query->header;
print $query->start_html(-title=>'Thank	You');
print "<FONT FACE = 'arial' SIZE = '2'><B>Self-Esteem Results Page</B><BR><BR>
Your self-esteem score is $esteem2, on a scale ranging from 1 t  5.</FONT>
print $query->end_html;