procmailrcだけで逆引きできないメールを切る試み

とある環境で逆引きできないIPからのSPAMが多発するので対応しようよといったが、該当してしまう正当ユーザ様がおられるからダメだと。意気消沈したので自分のやつだけでも制御しちまうことに。むむむ。

ただいまこのパターンでテスト中。間違ってたら誰かご意見くだされ＜ぉぃ

! ? perl -pe 'use Socket;while(<>){if(/^Received:/){if(/\[([\d\.]+)\]/){$a[@a]=$1;}}};$_=gethostbyaddr(pack('C*',split(/\./,$a[@a-1])),AF_INET);';test $? != ""

! SPAMの送り先アドレス </exmaple>

あなたは？