!/usr/bin/perl 
#use Email::MIME; 
use Email::Simple; 
use Data::Dumper; 
use MIME::Parser; 
use HTML::SimpleParse; 
use strict; 
use warnings; 
undef $/; 
 
my $message = <>; 
my $email = Email::Simple->new($message); 
 
 
print $email->header("To"),"\t",$email->header('Content-Type'), "\n"; 
 
 
my $parser = new MIME::Parser; 
my $data = $parser->parse($email->body); 
my $results = $parser->results; 
print Dumper($results);