|< 1 2 >| | 12 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
use Net::POP3;
$user = "name";
$passwd = "geheim";
$server = "pop3.name.de";
$pop3 = Net::POP3->new($server, Timeout => 60);
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";
my $pop3 = Net::POP3->new($server, Timeout => 60) or die $!;
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();
|< 1 2 >| | 12 Einträge, 2 Seiten |