SImple MIME Parser from STDIN

parse.pl

#!/opt/perl/bin/perl

use MIME::Parser;

use strict;
use warnings;

my $parser = MIME::Parser->new();
$parser->output_to_core(1);
$parser->decode_bodies(1);
my $entity = $parser->parse(\*STDIN);
$entity->print_header();
print "\n";
for my $part ($entity->parts()) {
  print $part->bodyhandle()->as_string();
  print "\n";
}