#!/usr/local/bin/perl
use CGI;
$q = new CGI;
$cookie_out = $q->cookie(-name=>"wolves", 
       -value=>"cookieinfo",-expires=>'+24h');
print $q->header(-cookie=>$cookie_out);
$cookie_in = $q->cookie("wolves"); 

print $cookie_in;

##</code><code>##

use CGI;
$q = new CGI;
$cookie_in = $q->cookie("wolves"); 
print $cookie_in;