elsif($expire =~ /\s\S+\s/) {
      $expstring = $expire;
    }
    $expstring = strftime "%a, %d-%b-%Y %H:%M:%S GMT ", gmtime($expire)
      unless $expstring;
    $expstring = "expires=$expstring" if $expstring !~ /^\s*expires=/i;
    $expstring =~ s/^\s*/ /;
    $out .= $expstring;
  }
  $out .= '; secure' if $secure;
  $out .= '; HttpOnly' if $::Pragma->{set_httponly};
  $out .= "\r\n";
}
return $out;
}