#! /usr/bin/perl -wT

use strict;
use MIME::Parser;
use IO::Lines;
my @mail=();
push @mail,$_ while(<>);
my $parser = new MIME::Parser;
$parser->tmp_to_core(1);
$parser->output_to_core(1);
my $entity = $parser->parse( new IO::Lines \@mail );