相关疑难解决方法(0)

我目前正在尝试使用Perl和Net::IMAP::Client 以下代码连接到Gmail收件箱

use strict;
use warnings;

use Net::IMAP::Client;

my $user = '[address]@gmail.com';
my $pwd = '[password]';

my $imap = Net::IMAP::Client->new(
    server          => 'imap.gmail.com',
    user            => $user,
    pass            => $pwd,
    ssl             => 1,                     # (use SSL? default no)
    ssl_verify_peer => 0,                     # (use ca to verify server, default yes)
    port            => 993                    # (but defaults are sane)
) or die "Could not connect to IMAP server: $_";

$imap->login or
  die('Login failed: ' . $imap->last_error)

但是$imap变量是，undef并且我收到此错误：

在串联（。）或testIMAP.pl第9行的字符串中使用未初始化的值$ …

我已安装此模块以获取Gmail收件箱中的访问权限和控制权.但是,当我尝试通过一个小的Perl脚本连接并测试功能时,我收到此错误消息.

Error: Could not login with those credentials - could not find final URL
  Additionally, HTTP error: 200 OK

这是Gmail.pm模块中内置的错误.

我可以ping有问题的网址(https://www.google.com/accounts/ServiceLoginBoxAuth),所以我觉得麻烦的是找不到网址.此外,我知道凭据是正确的,并且在该URL上工作,因为我已经手动尝试过.

我正在使用这个脚本进行测试.我已在适当的地方提供了我的凭证.