use CGI;

use strict;
use warnings;

my $q = CGI->new;
my $cookie = $q->cookie(
	-name=>'lizzy',
	-value=>'Lizzy',
	-expires=>'+12h',
);

print $q->redirect(
	-uri => 'http://perl.about.com/',
	-cookie => $cookie,
);