#!/usr/bin/perl -w
use strict;
use MIME::Parser;

my $parser = new MIME::Parser;
$parser->output_under("/some/directory");
my $entity = $parser->parse(\*STDIN) || die "Parse failed";