#!/usr/bin/perl

use Net::POP3;
    
$user = "USERNAME";
$passwd = "PASSWORT";
$pop3Server = "SERVER";

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

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

for($i=1;$i<=$messagenum ;$i++) {
  $subject = $pop3->top($i);
  foreach $zeile (@$subject) {
    if(index($zeile,"Subject:")>=0) {
      if(length($i) == 1) {
        $i = "00".$i;
      }
      if(length($i) == 2) {
        $i = "0".$i;
      }
      print "[$i] $zeile";
    }
  }
}

$pop3->quit();
      

© Henrik Teichmann