#!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); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $ip= $query->remote_addr(); open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/selfesteem.txt"); print INFO "$mon/$mday/$year\, "; print INFO "$hour:$min:$sec\, "; print INFO "$ip, "; print INFO "$v01, $v02, $v03, $v04, $v05,"; print INFO "$esteem2, "; print INFO "endline \n"; close (INFO); print $query->header; print $query->start_html(-title=>'Thank You'); print "Self-Esteem Results Page

Your self-esteem score is $esteem2, on a scale ranging from 1 to 5.
"; print $query->end_html;