Perl 如何设置基本http身份验证的用户名和密码？

我有一个perl程序，它是从cgi使用的

use CGI qw(:cgi);
print header(-type => 'text/html', -status => '401 Not Authorized',
         'WWW-Authenticate' => 'Basic realm="Videos"');

当我输入url时，浏览器希望我输入用户名和密码。问题是我不知道什么是用户和密码，我应该在哪里分配它们。 另外，使用另一种机制提供基本身份验证的任何帮助都会很好。 有人能帮我吗？

---

谢谢。

通常，Web服务器会处理基本身份验证，然后可能还会处理未经授权的请求返回401，因此您的代码id可能毫无意义

---

如果您真的想亲自尝试，您还必须解析用户尝试进行身份验证时浏览器发送的标题，使用您喜欢的任何方法验证信息，如果成功，则返回可用页面。

通常Web服务器处理基本身份验证，然后，它可能还会处理未经授权的请求返回401，因此您的代码id可能毫无意义

---

如果您真的想亲自尝试，您还必须解析用户尝试进行身份验证时浏览器发送的标题，使用您喜欢的任何方法验证信息，如果成功，则返回可用页面。

由于您已经在使用CGI，您可以从CPAN中插入模块。或者，如果您需要更具特色的功能，

因为您已经在使用CGI，您可以从CPAN中访问该模块。或者，如果您需要更具特色的功能，

那么……您不知道首先要提供哪个用户和密码？@serenesat:Ooh look。还有一个。这次你真的可以做一些有用的事情，所以…你不知道首先要提供哪个用户和密码？@serenesat:Ooh看。还有一个。这次你真的可以做一些有用的事情toothanks@Henrik。你的回答帮助我理解什么是真正的身份验证。我照你说的做，把我的代码放在这里。你能告诉我如何从浏览器中获取请求头吗？我通过ENV变量获取请求头，但身份验证框不会消失。谢谢@Henrik。你的回答帮助我理解什么真的是身份验证。我照你说的做，把代码放在这里。你能告诉我如何从浏览器中获取请求头吗？我通过ENV变量获取请求头，但身份验证框没有消失。我第一次尝试了这个模块，但它在模块的第314行向我发送了一个eror！！我第一次尝试了这个模块，但是它在模块的第314行向我发送了一个eror！！