perl Set-Cookie:UserID='XYZ';

要在 Perl 中设置 Cookie，可以使用 `CGI` 模块。可以使用以下代码来设置 `Set-Cookie` 头部：

#!/usr/bin/perl
use CGI qw/:standard/;

# 设置 Set-Cookie 头部
print header(-cookie=>'UserID=XYZ');

在上面的代码中，`header()` 函数用于设置响应头部，`-cookie` 参数用于设置 `Set-Cookie` 头部的值，`UserID=XYZ` 表示设置了名为 `UserID`，值为 `XYZ` 的 Cookie。如果需要设置 Cookie 的过期时间和路径等属性，可以在 Cookie 字符串中添加相应的参数，例如：

print header(-cookie=>'UserID=XYZ; expires=Sat, 01-Jan-2022 00:00:00 GMT; path=/');

在上面的代码中，`expires` 参数用于设置 Cookie 的过期时间，`path` 参数用于指定可以访问 Cookie 的页面路径。

相关问题

perl Set-Cookie:UserID Set-Cookie:Password Set-Cookie:Expires Set-Cookie:Domain Set-Cookie:Path

要在 Perl 中设置多个 Cookie，可以使用 `CGI` 模块，并在 `header()` 函数中使用多个 `-cookie` 参数。例如，以下代码设置了名为 `UserID`、`Password` 的 Cookie，以及名为 `Expires`、`Domain`、`Path` 的 Cookie 属性：

#!/usr/bin/perl
use CGI qw/:standard/;

# 设置多个 Cookie 和 Cookie 属性
print header(
  -cookie=>[
    'UserID=XYZ',
    'Password=123',
    'Expires=Sat, 01-Jan-2022 00:00:00 GMT',
    'Domain=.example.com',
    'Path=/'
  ]
);

在上面的代码中，`-cookie` 参数是一个数组，用于设置多个 Cookie 和 Cookie 属性。`Domain` 参数用于设置可以访问 Cookie 的域名，以 `.` 开头表示可以被所有子域名访问，`Path` 参数用于设置可以访问 Cookie 的页面路径。