#!/usr/bin/perl -w

use CGI;
use CGI::Cookie;

my $q = new CGI;
my $Cookie = new CGI::Cookie(-name=>'MyCookie', -value=>1);

print $q->header(-cookie=>$Cookie, 
		 -location=>'http://perlmonks.org');