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

my $query = new CGI;

my $cookie_out = $query->cookie(
       -name=>"MY_NAME",
       -value=>"Barry Griffin",
       -expires=>'+24h',
       -path=>'/cgi-bin/',
       -domain=>'bladx.perlmonk.org',
       -secure=>0
);


print $query->header(-cookie=>$cookie_out);
print $query->start_html("Cookie Test");

# DEBUG TO SCREEN

my $rcvd_cookies = $ENV{'HTTP_COOKIE'};
my @cookies = split /;/, $rcvd_cookies;
foreach my $cookie (@cookies)
{
  print $cookie,"\n";
}

print $query->end_html;