#!/usr/bin/perl

use MIME::Parser;

my $parser = new MIME::Parser;
$parser->output_under("./processed");
my $entity = $parser->parse_open("./1b8b5dfc-a31e-44be-bd99-d9b2782a2178");
$entity->dump_skeleton;