From 378ef21e3b4b17086cd9ee33f688836b41fa5837 Mon Sep 17 00:00:00 2001
From: Ray Miller <ray@metail.co.uk>
Date: Sat, 13 Jul 2024 15:05:41 +0100
Subject: [PATCH] Script to dump MIME parts (useful for debugging email
 messages)

---
 misc/dump-mime-parts.pl | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100755 misc/dump-mime-parts.pl

diff --git a/misc/dump-mime-parts.pl b/misc/dump-mime-parts.pl
new file mode 100755
index 0000000..9d69307
--- /dev/null
+++ b/misc/dump-mime-parts.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use MIME::Parser;
+
+my $parser = new MIME::Parser;
+
+$parser->output_under(".");
+$entity = $parser->parse(\*STDIN) or die "parse failed";
+$entity->dump_skeleton();