use strict; use warnings; ### 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) or die "Keine Verbindung zu Server : $!\n"; ### Login MS defined ($pop->login($username, $password)) or die "Can't authenticate: $!\n"; ### Fehlermeldung: #Keine Verbindung zu Server : Ein Verbindungsversuch ist fehlgeschlagen, #da die Gegenstelle nach einer bestimmten Zeitspanne nicht richtig reagiert #hat, oder die hergestellte Verbindung war fehlerhaft, da der verbundene #Host nicht reagiert hat.