#!/usr/bin/perl
$mydir=$ENV{'SPAMHOME'};

@it=`$mydir/bin/spamproc -l`;
print $mydir;
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";
		}
	}
}

