Похоже, проблема связана с типами авторизации, которые эти модули могут предоставить, как показано в текстовом примере ниже.
Как мне обойти это?
use Net::Netrc;
use Mail::POP3Client;
use IO::Socket::SSL;
my $server=Net::Netrc->lookup($ARGV[0]) or die ".netrc entry not found\n";
my ($login, $pass) = $server->lpa or die "Login or password not found\n";
print $login." ".$pass."\n"; # DB3
my $socket = IO::Socket::SSL->new( PeerAddr => $ARGV[0],
PeerPort => 995,
Proto => 'tcp') || die "No socket!";
my $pop = Mail::POP3Client->new();
$pop->Debug(1);
$pop->User($login);
$pop->Pass($pass);
$pop->Socket($socket);
$pop->Connect();
--
POP3 <- +OK Gpop ready for requests from ...
POP3 <- SASL PLAIN XOAUTH2 OAUTHBEARER
at ./BpGet.pl line 19.
POP3 <- .
at ./BpGet.pl line 19.
POP3 -> USER jane
at ./BpGet.pl line 19.
POP3 <- +OK send PASS
at ./BpGet.pl line 19.
POP3 -> PASS janepasswd
at ./BpGet.pl line 19.
POP3 <- -ERR [AUTH] Username and password not accepted.