Net::POP3无法New成功。

suxingwakeup

#!c:\perl\bin\perl.exe -w
use strict;
use Net:OP3;
my $host = 'pop.gmail.com';
my $user = 'suxingwakeup';
my $pass = "*******";
my $pop = Net:OP3->new($host) or die "cannt connect";
$pop->login($user,$pass) or die "cannot login";
my $title=$pop->list or die "cannot receive";
foreach my $mail(keys %$title){
      my $msg = $pop->get($mail);
      print @$msg;
      }

一直无法NEW成功  不知道怎么回事。。。望大侠们指点。。不知道 是否和在win环境下 有关系？、
BTW，pop.gmail.com是可以ping通的。。

兰花仙子

gmail的Pop不是这样简单New的。
gmail的Pop3使用SSL加密，端口也不是110，看看这个模块吧：

http://search.cpan.org/~tokuhiro ... /POP3/SSLWrapper.pm