my $cgi = CGI->new();
print $cgi->header(
    -cookie  => [ $cookie1, $cookie2, $cookie3, $cookie4 ],
    -expires => '+10m',
    -Clear_Site_Data => qq("cookies"),
  );