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

# Grab the message
my $i=0;
my @msg = grep( $i || /^\s*$/ && $i++, <>);
splice @msg,0,1 while ( $msg[0] =~ /^(>From |SPAM:|\s*$)/ );

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

$spamass->report_as_spam($mail);