or download this
$namecookie = cookie(-name => "amembernamecookie", -value => "$
+inmembername", -path => "$cookiepath/", -expires => "$CookieDate");
$passcookie = cookie(-name => "apasswordcookie", -value =
+> "$inpassword", -path => "$cookiepath/", -expires => "$CookieDate"
+);
print header(-cookie=>[$namecookie,$passcookie] , -expires=>"$EXP_MODE
+" , -cache=>"$CACHE_MODES");