-------------------------------------------------------
Code
-------------------------------------------------------
#!/usr/local/bin/perl -w 
use strict; 

use CGI; 
my $query = new CGI; 

my $cookie_out = $query->cookie(
       -name=>"MY_NAME", 
       -expires=>'+24h', 
       -domain=>'cgi.tripod.com', 
       -secure=>0

); 

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

print $query->start_html("Cookie Test"); 

# DEBUG TO SCREEN
print $query->p; 
print $query->header(-cookie=>$cookie_out); 
print $query->p; 

my $cookie_in = $query->cookie("MY_NAME"); 

if($cookie_in) 
{ 
   print $cookie_in; 
} 
else 
{ 
   print "Can't find the cookie"; 
} 
print $query->p; 

print $query->end_html;