eval {
    my $parser = new MIME::Parser;
    $parser->output_under("/tmp/");
    my $entity = $parser->parse(\*STDIN) or die "parse failed\n";
};
..