## Modul laden
use Net::POP3;

### Zuweisungen
my $mail_server	= 'pop.mail.yahoo.com';
my $username 	= 'xxxxxxxxxxx@yahoo.de';
my $password 	= 'xxxxxxxxxxx';

print "Mailserver: $mail_server Benutzername: $username Pass: $password\n";

### Verbindung herstellen zu MS
my $pop = Net::POP3->new ($mail_server,Timeout => 30, SSL => 1, Debug => 1) 
	or die "Keine Verbindung zu Server : $!\n";

__END__
Bringt dann aus Ausgabe

Mailserver: pop.mail.yahoo.com Benutzername: xxxxxxxxxxx@yahoo.de Pass: xxxxxxxxxxx
Net::POP3::_SSL>>> Net::POP3::_SSL
Net::POP3::_SSL>>>   IO::Socket::SSL(2.075)
Net::POP3::_SSL>>>     IO::Socket::IP(0.41)
Net::POP3::_SSL>>>       IO::Socket(1.49)
Net::POP3::_SSL>>>         IO::Handle(1.48)
Net::POP3::_SSL>>>           Exporter(5.74)
Net::POP3::_SSL>>>   Net::POP3(3.14)
Net::POP3::_SSL>>>     Net::Cmd(3.14)
Net::POP3::_SSL=GLOB(0x271aeec)<<< +OK Hello from jpop-0.1