#!c:/perl/bin/perl -wT

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

my $foo = new CGI;

my $id_value = 123;
my $var = 'someString';

my $cookie_id = $foo->cookie(-name => 'id',
				-value => "$id_value",
				-expires => '+18h',
				-path => '/');
my $cookie_var = $foo->cookie(-name => 'something',
				-value => "$var",
				-expires => '+18h', 
				-path => '/');

print $foo->header(-cookie => [$cookie_id, $cookie_var]);

print "<A HREF=\"check_cookie.cgi\">Check Cookie</A>\n";