#- Set Cookie -----------------------------------------------------------------#
sub setCookie {
  # end a set-cookie header with the word secure and the cookie will only
  # be sent through secure connections
  my ($name, $value, $expiration, $path, $domain, $secure) = @_;

  print "Set-Cookie: ";
  print ($name, "=", $value, "; expires=", $expiration,
    "; path=", $path, "; domain=", $domain, "; ", $secure, "\n");
}