%prefs;

%prefs = CGI::cookie('prefs');
....
....
....
$prefs{'saveprefs'} = CGI::param('saveprefs');
$prefs{'name'} = CGI::param('name');
$prefs{'email'} = CGI::param('email');

$cookie = CGI::cookie(
  -name => 'prefs',
  -value => [ %prefs ],
  -expires => '+1d',
  -domain => $ENV{SERVER_NAME},
  -path => '/',
  -httponly => 1
  -secure => 1
);
....
....
....
print CGI::header( - cookie=> [ $cookie ]);