#!/usr/bin/perl
while(<STDIN>) {$mail .= $_;}
$spam = $ARGV[0];
if($spam =~ /\-\-spam/){
        open (OUT,"|/usr/bin/spamc -f|/usr/local/bin/clamassassin");
        print OUT "$mail";
        close (OUT);

}else{
        open (OUT,"|/usr/local/bin/clamassassin");
        print OUT "$mail";
        close (OUT);
}