1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
use Net::POP3;
$user = "name"; #ersetze ich,
$passwd = "geheim"; #wenn ich es ausführe
$server = "pop3.name.de"; #ebenfalls
$pop3 = Net::POP3->new($server, Timeout => 60) or die $!;
print "Einloggen in $server als $user ...\n";
$messagenum = $pop3->login($user,$passwd) || die "Konnte nicht in $server einloggen";
print "Sie haben $messagenum Nachrichten\n\n";
$pop3->quit();
Fehlermeldung lautet:
Unknown error at name.pl line 9