use warnings;
use strict;

### Module laden
use Mail::POP3Client;
use IO::Socket::SSL;

### SSL Verbindung
 my $socket = IO::Socket::SSL->new( 
                PeerAddr => 'pop.mail.yahoo.com',
                PeerPort => 995,
                Proto    => 'tcp') || die "No socket!";

### Pop3-Client Ojekt erstellen, Werte zuweisen und connecten
 my $pop = Mail::POP3Client->new(debug=>1);
 $pop->User('xxxxxxxxx@yahoo.de');
 $pop->Pass('xxxxxxxxx');
 $pop->Socket($socket);
 $pop->Connect();

### Mailabfrage starten
 for(my $i = 1; $i <= $pop->Count(); $i++ ) {
   foreach( $pop->Head( $i ) ) {
     /^(From|Subject):\s+/i && print $_, "\n";
   }
 }

### Verbindunge schliessen
 $pop->Close();

## Fehlermeldungen:
## No socket!