#!/usr/bin/perl
use Mail::POP3Client;

$pop = new Mail::POP3Client( USER     => "me",
                  PASSWORD => "mypassword",
                  HOST     => "pop3.do.main" );
 for( $i = 1; $i <= $pop->Count(); $i++ ) {
   foreach( $pop->Head( $i ) ) {
     /^(From|Subject):\s+/i && print $_, "\n";
   }
 }
 $pop->Close();


 # OR with SSL ##**<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $pop = new Mail::POP3Client( USER     => "me",
                  PASSWORD => "mypassword",
                  HOST     => "pop3.do.main",
                  USESSL   => true,
                );


 # OR
 $pop2 = new Mail::POP3Client( HOST  => "pop3.otherdo.main" );
 $pop2->User( "somebody" );
 $pop2->Pass( "doublesecret" );
 $pop2->Connect() >= 0 || die $pop2->Message();
 $pop2->Close();


 # OR to use your own SSL socket...
 my $socket = IO::Socket::SSL->new( PeerAddr => 'pop.securedo.main',
                                    PeerPort => 993,
                                    Proto    => 'tcp') || die "No sock
+et!";
 my $pop = Mail::POP3Client->new();
 $pop->User('somebody');
 $pop->Pass('doublesecret');
 $pop->Socket($socket);
 $pop->Connect();
[download]

Well, looking at CPAN, I noticed GMail::Checker which may do what you want better. If not, you might look at its code as it claims to do POP3 over SSL.

(On second thought, maybe don't read the code - they're doing the POP protocol directly rather than using Net::POP3... but it still may be a module you want to use, if not learn from.)

One recurring suggestion elsewhere has been to use Mail::POP3Client, which I have never tried either.

jdtoronto