#! /usr/bin/perl -w

use strict;
use MIME::Parser;

my $parser = new MIME::Parser;
my $entity = $parser->parse(\*STDIN) or die "parse failed\n";
$entity->dump_skeleton;