#!/usr/local/bin/perl
#Holt E-Mails mit dem POP3-Protokoll

use Net::POP3;# aus libnet

# ----- CONFIGURATION ------------------------------------------
use constant MAILHOST => "mail.some.net"; # Der POP3-Server
use constant MAILUSER => "user";          # POP3-Account
use constant MAILPASS => "pass";          # oder User fragen
# ----- ab hier nichts mehr aendern ----------------------------

# Erzeuge ein POP3-Objekt
$pop3 = Net::POP3->new(MAILHOST,'Timeout' => 60)
    or die "can't create a new pop3 object: $!\n";

# Beim POP3-Server einloggen
$pop3->login(MAILUSER, MAILPASS)
    or die "can't login to the pop3 server: $!\n";

# Hole Liste aller noch nicht geloeschter Mails.
# Key: Nummer der nicht geloeschten Nachrichten,
# Value: Laenge der Nachricht in Bytes.
$phash = $pop3->list();

# Lies alle nicht geloeschten Mails
foreach my $elem (sort keys %{$phash}) 
  {
  # Hole die $elem-nte Mail
  my $ptext = $pop3->get($elem);

  # Nachricht ausgeben
  foreach my $line (@{$ptext}) 
    { print $line; }

  # OPTIONAL: Mail beim POP3-Server als geloescht markieren
  $pop3->delete($elem);
  }

$pop3->quit();