#!/usr/bin/perl -w

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

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

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

print(Dumper(@recv),"\n");