use strict;
use warnings;
use Net::POP3;

# ----- CONFIGURATION ------------------------------------------
use constant MAILHOST => "blackhole";     # Der POP3-Server
use constant MAILUSER => "saturn";        # POP3-Account
use constant MAILPASS => "saturn";        # oder User fragen
# ----- ab hier nichts mehr aendern ----------------------------

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

print "Einloggen in " . MAILHOST . " als " . MAILUSER ."\n";
my $anzahl = $pop3->login(MAILUSER, MAILPASS)
   or die "Konnte nicht in " . MAILHOST . " einloggen\n";
print "$anzahl Nachrichten\n\n";

# Betreffzeilen der neuen Emails werden ausgelesen und angezeigt.

for my $i (1 .. $anzahl)
  {
  my $subject = $pop3->top($i);
  print "$i: ";
  foreach my $zeile (@$subject)
    {
    if ($zeile =~ /subject:/i)
      { print $zeile; }
    }
  print "\n";
  }
$pop3->quit();