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";