#!/Perl/bin/perl
use CGI qw(:standard);

print header;
print 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;
}
print end_html;

sub showhello {
print "Hello, World...\n";

print "References ...\n";

print "Yahoo search : perl reference documentation package \n";

print "http://www.rexswain.com/perl5.html - Simple list style help ...\n";

print "http://search.cpan.org/src/LDS/CGI.pm-3.08/cgi_docs.html ... CGI = creating HTML forms ...\n";

print "http://aspn.activestate.com/ASPN/Perl ... ActivePerl documentation ...\n";

print "http://aspn.activestate.com/ASPN/docs/VisualPerl/readme.html#installation ... ActivePerl add-in for Visual Studio ...\n";

print "http://www.activestate.com/store/trial/register.plex?id=PerlDevKit ... Get ActivePerl DK (formerly ASPN)...\n";

print "http://www.whitefire.com/programs/docs/MtmlParserDoc.html ... A file parser ...\n";
print "from : http://www.whitefire.com/programs/ - MtmlParser-0.8.tar.gz and perltools.tar.gz This contains some useful perl tools ...\n";

print "http://theoryx5.uwinnipeg.ca/modperl/docs/general/perl_reference/perl_reference.html ...
}





