#!/usr/bin/perl -Twnl
##
# Subject: some email headers extractor
#      To: cozy
#    From: altblue
#    Date: 2003.05.22
##
use strict;
use Mail::Header ();
use vars qw(@buffer);

BEGIN {
    sub process_headers {
        my $h = new Mail::Header \@buffer, Modify => 1;
        $h->unfold;

        print join ',', map {
                            local $_ = $h->get($_);
                            s/^\s+//s;
                            s/\s+$//s;
                            s/\s+/ /sg;
                            $_
               } qw(Date From To Received);
        @buffer = ();
    }
}

END {
    process_headers if @buffer;
}

/^$/ && @buffer ? process_headers : push @buffer, $_;