#!/usr/bin/perl use CGI; use CGI::Carp qw(fatalsToBrowser); $query2 = new CGI; $cookie = $query2->cookie(-name=>'TEST-COOKIE', -value=>'test cookie ', -expires=>'24h', -path=>''); print $query2->header(-cookie=>$cookie); print" This is a link "; print $query2->end_html; ##

##

#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);

$cgi_query = new CGI;
print $cgi_query->header;

print $cgi_query->start_html('getacookie program');

print $cgi_query->h4('Your cookie name is...');

$testCookie = $cgi_query->cookie('TEST-COOKIE');

print "\n";
print $testCookie;
print $cgi_query->end_html;