my $q = new CGI;

my $cke1 = new CGI::Cookie(
-name => $in{usr},
-value => $val,
-expires => '+1h',);

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

##</code><code>##

my $q = new CGI;
my $cke1 = new CGI::Cookie(
-name => $usr,
-value => $pwd,
-expires => '-1d',);

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