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

open(MAILFILE, "<mail") || 
   die "Fehler beim Öffnen von 'mail'";

while(<MAILFILE>) {
    last if /^\s*$/;      # Leerzeile: Ende des Headers

                          # Headerzeile (Key: Value) 
                          # analysieren
    next unless /^(\w+):\s+(.*)/;

    $header{$1} = $2;     # Ergebnis in einem Hash 
                          # abspeichern
}

close(MAILFILE);
                          # Ausgabe
foreach $key (keys %header) {   
    printf "KEY: $key VALUE: $header{$key}\n";
}