如何使用Perl CGI设置cookie？

要使用Perl CGI设置cookie，您需要在HTTP响应头中添加一个名为"Set-Cookie"的标头。以下是一个简单的示例，展示了如何使用Perl CGI设置cookie：

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;

print header, start_html('Setting a Cookie'),
    h1('Setting a Cookie'),
    p('This is a simple Perl CGI script that sets a cookie.'),
    end_html;

my $cookie = cookie(
    -name    => 'myCookie',
    -value   => 'myValue',
    -expires => '+1h',
);

print header(-cookie => $cookie);

在这个示例中，我们首先加载了CGI模块，并使用了它的一些函数来创建一个简单的HTML页面。然后，我们使用cookie函数创建了一个名为myCookie的cookie，并将其值设置为myValue。我们还设置了一个过期时间，使其在1小时后过期。最后，我们使用header函数将cookie添加到HTTP响应头中。

请注意，这个示例仅用于演示目的，实际应用中可能需要更复杂的逻辑和安全措施。在设置cookie时，请确保遵循最佳实践，以确保用户数据的安全和隐私。