#!/usr/local/bin/perl -w

use MIME::Parser;
use File::Basename;

use strict;

# derive the base filenames of extracted parts from
# the name of the script. 
my ($parsed) = (basename($0))[0];

#Create a Parser object
my $parser = MIME::Parser->new();

# output directory for parsed files
$parser->output_dir("/tmp");

# Basenames for parsed files
$parser->output_prefix($parsed);

$parser->output_to_core();

open(INPUT, "/tmp/email-test/AuthenticationReport.msg") or die("Input error: $!");

my $entity = $parser->read(\*INPUT)
    or die "couldn't parse MIME stream";
close(INPUT);

# Tell us about the MIME entities! this is for debugging

$entity->dump_skeleton;