$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");