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);