my $q = new CGI;

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

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