#!/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");
In reply to Re^4: Mail::Message->get('received') failing
by gw1500se
in thread Mail::Message->get('received') failing
by gw1500se
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |