#test.pl
#!/usr/bin/perl

use strict;
use CGI::Cookie;
use CGI;

my $cgi = new CGI;




print
        $cgi->header( -cookie => new CGI::Cookie(-name => 'name',
                                                 -value=> $cgi->param('name'),
                                                 -expires => 'Thu, 26-Sep-2002 00:00:00 GMT',
                                                 -domain => 'students.cs.byu.edu'
                                                                     )
                ).
        $cgi->start_html(-title => 'A Simple Example',
                        -bgcolor => $cgi->param('color'));


if ($cgi->param())
{
print
        $cgi->center(
        $cgi->h3("Hello: ".
        $cgi->param('name')));

}
print
        $cgi->start_form(-action => "results.pl"),
        "What's your name? ",$cgi->textfield('name'),
        $cgi->p,
        "What's the combination?",
        $cgi->p,
        $cgi->checkbox_group(-name=>'words',
                  -values=>['eenie','meenie','minie','moe'],
                  -defaults=>['eenie','minie']),
        $cgi->p,
        "What's your favorite color? ",
        $cgi->popup_menu(-name=>'color',
              -values=>['red','green','blue','chartreuse']),
        $cgi->p,
        $cgi->submit('SUBMIT'),
        $cgi->end_form,
        
        


        $cgi->end_html();
exit(0);