#!/usr/bin/perl

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

$co = new CGI;

$cook2 = new CGI::Cookie(-name=>'test2', -expires=>'+1h', -value=>'saveme2');

$cook = $co->cookie(
	-name=>'test',
	-path=>'/',
	-expires=>'+1h',
	-value=>'saveme'
);

print $co->header(-cookie=>[$cook,$cook2]);
print 'output';