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();