use Net::POP3;

$benutzer = "benutzer";
$passwort = "passwort";
$pop3Server = "pop3.server.com";

$pop3 = Net::POP3->new($pop3Server, Timeout => 60);

print "Einloggen in $pop3Server als $benutzer ...\n";
$messagenum = $pop3->login($benutzer,$passwort) || die "Konnte nicht in $pop3Server einloggen";
print "Sie haben $messagenum Nachrichten\n\n";

# Betreffszeilen der neuen Emails werden ausgelesen und angezeigt.
# Siehe unten für eine Erläuterung dieses Code-Blocks

for ($i=1;$i<=$messagenum ;$i++) {
  $subject = $pop3->top ($i);
  foreach  $zeile (@$subject) {
    if (index($zeile,"Subject:")>=0) {
      print "Header of message $i: $zeile\n";
    }
  }
}

$pop3->quit();