use Mail::SpamAssassin;
 use Mail::Audit;


     open FILE, "<", ~/Messages/twitter_tweet.ema' or die;
     my @lines = <FILE>;

     my $spamtest = Mail::SpamAssassin->new();

     my $mail = $spamtest->parse(\@lines);

     my $status = $spamtest->check($mail);

     print $status->get_report();

    if ($status->is_spam()) {
        print "Totally Spam\n";
     }
     else {
         print "not spam\n";
     }


     $status->finish();
     $mail->finish();
     $spamtest->finish();