contrer les usurpations

Bonjour,
je suis en train d'essayer de mettre en place un filtre perl
if     ($hdr{'From'} =~ /vrai\.ou\.faux/
    and  $hdr{'Injection-Info'} !~ /81\.65\.110\.7/
    and  $hdr{'Injection-Info'} =~ /dodin\.fr\.nf/)
  {
          return reject("usurped identity");
  }
slog('N','Fin de cleanfeed.local');
Le but est de comparer le from et l'IP et de rejeter le post si les deux ne correspondent pas.
pour l'instant ça ne marche pas. C'est à la fin de la fonction local_filter_first, le message de fin s'affiche bien dans les logs, donc le script est exécuté, il n'y a pas d'erreur de syntaxe visible..
qu'est-ce qui ne va pas?
merci
jdd
--
mon serveur dodin.fr.nf