#!/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";