I am successfully reading the POP3 message. Next, I store the message
contents in the @mailmessage array. When I try to print the header tags -
nothing is printed. Any assistance would be appreciated. I have included the
code for your review.
Thank You
Paul
****************************************************************************
****
use Mail::POP3Client;
use Mail::Internet;
use Mail::Header;
$pop = new Mail::POP3Client( USER => "servicetest",
PASSWORD => "testservice",
HOST => "mail.noc.12345.com" );
push @mailmessage,$pop->HeadAndBody(2)."\n";
print @mailmessage;
$header = new Mail::Header @mailmessage;
print join("\n",sort $header->tags);
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
