#!/usr/bin/perl -w
######################################################################
# mailheader.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

open(MAILFILE, "<mail") || die "Error opening 'mail'";

while(<MAILFILE>) {
    last if /^\s*$/;               # empty line: end of header
                          
    next unless /^(\w+):\s+(.*)/;  # analyze header (key: value)

    $header{$1} = $2;              # store result in a hash
}

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