#!/usr/bin/perl -w

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

my $yySetCookies1 = cookie(
	-name    =>   "test",
	-value   =>   "test",
	-path    =>   "/",
	-expires =>   ""
	);

print header(
	-status=>"200 OK",
	-cookie=> $yySetCookies1
	);