use strict;
use CGI;
my $q = new CGI;
my $cookie = $q->cookie(-name=>'pass',
 -value=>'xxxx',
 -expires=>'+1h',
 -path=>'/');
 print $q->header(-cookie=>$cookie);