#!/usr/bin/perl -wT

use MIME::Parser;

my $parser = new MIME::Parser output_to_core => 1;
$parser->output_to_core(1);
my $entity = $parser->parse(\*STDIN) or die "couldn't parse MIME stream";

$entity->head->delete('X-Spam-Level');
$entity->head->delete('X-Spam-Checker-Version');
$entity->head->delete('X-Spam-Status');
$entity->head->delete('X-Spam-Report');
$entity->head->delete('X-Spam-Flag');

$entity->print(\*STDOUT);