Select Code to Download

my $q = new CGI;

...
-expires => '+1h',);

print $q->header(-cookie=>$cke1);

my $q = new CGI;
my $cke1 = new CGI::Cookie(
...
print $q->redirect(
-cookie=>$cke1,
-uri=>'http://mypage.com/my_login.html');