#!/usr/local/bin/perl -w
#
# this is a file i named set.cgi
#
#
use strict;
use CGI;
my $q = new CGI;

my $cookie_out = $q->cookie(-name=>"wolves", 
                         -value=>"cookieinfo",
                         -expires=>'+24h');

print $q->header(-cookie=>$cookie_out);

my $cookie_in = $q->cookie("wolves"); 

print $cookie_in;