получения письма с gmail.com

кто-нибудь пытался получить тело письма с gmail.com? получалось ли вообще. я знаю что там нужно использовать SSL. Вот мой код:

Code:

#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;

my $username="login";
my $password="password";
my  $pop = new Mail::POP3Client( USER     => $username,
                               PASSWORD => $password,
                               HOST     => "pop.gmail.com",
                               PORT => 995,
                               USESSL => 'true',
                               DEBUG => 1 );
  for(my $i = 1; $i <= $pop->Count(); $i++ ) {
    foreach( $pop->Head( $i ) ) {
      /^(From|Subject):\s+/i && print $_, "\n";
    }
  }
  $pop->Close();

но он что-то ничего не возвращает! даже DEBUG что-то ничего не выдает!
В чем может быть проблема?

 

Работает все, мб у аккаунта поп3 не включен

 

PHP:

<?php
            $conn = @imap_open("{imap.gmail.com:993/imap/ssl/novalidate-cert}INBOX", $mail, $pass);
            if ($conn)
            {
                $num_mgs = imap_num_msg($conn);
                echo $num_mgs." letters\n";
                                
                    for($i = 1 ;$i <= $num_mgs;$i++)
                    {
                    if (strpos(@imap_header($conn,$i)->fromaddress, "%target%"))
                        {
                        $Msgno = @imap_header($conn,$i)->Msgno;
                        $Lbody =  imap_body($conn,$Msgno);
                        print "$Lbody\n";
                        }
                    }
            }
                        
                        
?>

через имап все просто

 

нет. все ключено! я думаю что у меня какие-то проблемы с ssl. может такое быть?

 

Mail/POP3Client.pm есть?
пуск > выполнить > ppm > Mail-pop3 > install

 

У меня LINUX!!! и модуль стоит! и ошибок никаких не выводит! Я пользуюсь Komodo Edit и ни он ошибок не выдает, ни к консоль ничего не выдает!

 

Сомневаюсь... IO::Socket::SSL стоит?

 

заработало! Помогло добавление в код

Code:

use IO::Socket::SSL;