#!/usr/bin/perl

use strict;
use CGI;


my $cgi = new CGI;

print
        $cgi->header( -cookie => new CGI::Cookie(
                      -name => 'ChocolateChip',
                      -value=> $cgi->param('name'),
              -expires => 'Thu, 26-Sep-2002 00:00:00 GMT',
                      -domain => 'students.cs.byu.edu',
                      -path => '/'
                                                                                                           )
                   )