#!/usr/local/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $query = new CGI;
my $cookie = $query->cookie(
    -name    => 'test',
    -value   => 'banana'
);

print $query->header(-type => "text/html", -cookie => $cookie ) ||
    die "Cannot set cookie $!";

print "Hello";

##</code><code>##

Set-Cookie: test=banana; path=/
Date: Wed, 22 Sep 2004 03:43:55 GMT
Content-Type: text/html; charset=ISO-8859-1

Hello