Mail::SpamAssassin perl

use Mail::SpamAssassin;

my $sa = Mail::SpamAssassin->new();
use Data::Dumper;
open FILE, "<", "allmal/home/popclient/1/all394.folder394.622.eml";
my @lines = ;
my $mail = $sa->parse(\@lines);
#print Dumper($mail);
my $status = $sa->check($mail);
print Dumper($status);
my $report = $status->get_report();


$report =~ s/\n/\n
/g;

print "

Spam Report

";
print $report;

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