Greetings learned monks,

I am using CGI.pm. Through the wisdom of fellow monks I sorted out an issue I had yesterday about getting a re-direct to work. The first item you "print" should be the redirect to make it work. However, due to a requirement change, I need to set a cookie before I action the redirect.

The following code fragment does not work, i.e. a cookie is set but no redirect takes place because there has been a "print" before the "redirect".

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

#my $r=CGI->new;
print $q->redirect( -uri => 'http://perl.about.com/' );
print $q->header(-cookie=>$cookie);
[download]

Does anyone have any ideas how I can set the cookie and get the redirect to work?

Many thanks