#!C:/perl/bin/perl.exe use CGI::Carp qw(fatalsToBrowser); use CGI; $query = new CGI; # Demonstration of how to use a Perl script to administer the survey # Prepare to send HTML code to browser print $query->header; print $query->start_html(-title=>'Thank You'); # Create styles print ""; print " Demonstration of how to deliver HTML in perl
This page is designed to assess your self-esteem.

Please answer the following questions. Once you have answered each question, click the button labeled calculate my score. The web page will then calculate your self-esteem score, and tell you more about how you compare to others.

1. I feel that I'm a person of worth, at least on an equal plane with others.
Strongly Disagree Strongly Agree

2. I feel that I have a number of good qualities.
Strongly Disagree Strongly Agree

3. All in all, I am inclined to feel that I am a failure.
Strongly Disagree Strongly Agree

4. I am able to do things as well as most other people.
Strongly Disagree Strongly Agree

5. I feel I do not have much to be proud of.
Strongly Disagree Strongly Agree


"; print $query->end_html;