#!/usr/bin/perl 

use MIME::Parser;
use Data::Dumper;

parse_email();

sub parse_email {
  my $dir = "/tmp/attachments";
  
  my $parser = new MIME::Parser;
  $parser->output_dir($dir);
  my $entity = $parser->read(\*STDIN) || die "couldn't parse MIME stream";
  my $head = $entity->head;
  my $content = $head->as_string . "\n";

  my @parts = $entity->parts;
  my $body = $entity->bodyhandle;

  $content .= $body->as_string if defined $body;
  my $part;
  for $part (@parts) {
    my $path = ($part->bodyhandle) ? $part->bodyhandle->path : undef;
  }

return $content;
}