use MIME::Parser;
my $parser=MIME::Parser->new;
$parser->output_dir("/temp");
open FILE "incoming" || die "Couldn't open file\n";
my $entity=$parser->read(\*FILE)|| die "Couldn't parse\n";
my $head=$entity->head;
$entity->dump_skeleton; ## Print out the structure.