|
#!/usr/local/bin/perl # http://www.perl.com/pub/doc/manual/html/lib/CGI/Cookie.html use CGI qw/:standard/; use CGI::Cookie; $email=new CGI::Cookie(-name=>'email',-value=>'burin@thaiall.com',-expires=>'+12M'); $sex = new CGI::Cookie( -name=>sex, -value=>male, -expires=>'-1M'); $prefer = new CGI::Cookie( -name=>'prefer', -value=>{ face=>arial, size=>12 } ); print header(-cookie=>[$email,$sex,$prefer]); print "Save finish"; |