#!/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();