#!/usr/bin/perl -w
$|++;
use strict;
use Mail::SpamAssassin;
use Mail::SpamAssassin::NoMailAudit;

# Grab the message
my @msg = <>;

# strip the spamassassin markup
my $spamass = Mail::SpamAssassin->new();
my $mail    = Mail::SpamAssassin::NoMailAudit->new(
    data          => \@msg,
    add_From_line => 0
);

# Spit out the newly cleaned message with approved headers back in.
print $spamass->remove_spamassassin_markup($mail);