#!/usr/bin/perl -w

use strict;
use Mail::Message;
use Mail::Field;
use Data::Dumper;

my $msg=Mail::Message->read(\*STDIN);
my $head=$msg->head();

my $from=$msg->from;
my @to=$msg->to;
my @subject=$msg->subject;
my @recv=$head->get('received');

foreach my $recv_item (@recv) {
   # I need to create an array of hashes, each of which
   # contains a parsed 'received' header
}