#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Net::POP3;
###############################################################
$host   = 'my.mail.host';           # Mail-Host
$userid = 'huber';                  # Login
$passwd = 'nixgibts!';              # Paßwort
###############################################################

                                    # Host kontaktieren
($mail = Net::POP3->new($host)) || die "Could not open $host";

                                    # Einloggen
$nof_messages = $mail->login($userid, $passwd);
die "Userid/Passwd Error" unless defined $nof_messages;

if($nof_messages) {                 # Liegen Nachrichten vor?
                                    # Für alle Nachrichten
    foreach $mesgno (keys %{$mail->list()}) {
                                # Alle Header-Zeilen abklappern
        foreach (@{$mail->top($mesgno)}) {
            $subject = $1 if /^Subject: (.*)/;
            $from    = $1 if /^From: (.*)/;
        }

        printf "%02d %-30s %s\n", $mesgno, 
                                  $from, $subject, "\n";
    }
}

$mail->quit();                      # Mailprogramm verlassen