#!/usr/bin/perl -w
#!C:/xampp/perl/bin/perl -w
#
#    This file is part of a perl tutorial
#
#    (C) Copyright 1999 Hans Kern
#
#    File name    : pldemo11.cgi
#    Created by   : Hans Kern
#    Creation date: 25.5.99
#

# CGI script that creates a fill-out form
# and echoes back its values.

use CGI qw/:standard/;
print header,
      start_html('A Simple Example'),
      h1('A Simple Example'),
      start_form,
      "What's your name? ",textfield('name'),p,
      "What's the combination?", p,
      checkbox_group(-name=>'words',
                     -values=>['eenie','meenie','minie','moe'],
                     -defaults=>['eenie','minie']), p,
      "What's your favorite color? ",
      popup_menu(-name=>'color',
                 -values=>['red','green','blue','chartreuse']),p,
      submit,
      end_form,
      hr;

if (param()) {
    print "Your name is: ",em(param('name')),p,
          "The keywords are: ",em(join(", ",param('words'))),p,
          "Your favorite color is: ",em(param('color')),
           hr;
   }