#!/usr/bin/perl

use strict;
use CGI;


my $cgi = new CGI;

my %cookie = $cgi->cookie(-name => "ChocolateChip");

if(defined %cookie)
{
# read from the cookie ChocolateChip to have my document display user 
# preferences that were saved int the -value=> part of the cookie
}