#!/usr/bin/perl
$mydir=$ENV{'SPAMHOME'};
chomp($mydir);
$mycmd="$mydir/bin/spamproc -l";
@it=`$mycmd`;
foreach (@it){chomp();}

while(<>){
	foreach $a (@it){
		chomp($_);
		chomp($a);
		if ($_ =~ /.*$a.*/){
			$it=`grep $a ~/.procmailrc-test`;
			chomp($it);
			print "Match:[$a] ProcM:[$it] Mail:[$_]\n";
		}
	}
}

