my $parser = new MIME::Parser;
my $entity = $parser->parse(\*STDIN) or debug_parser();