#!/usr/local/bin/perl
use strict;
exit 1 unless (my $mail_from = <>);
exit 1 unless open (AD,'/home/ajdelore/.addressbook');
while (<AD>) {
  my $addr = (split /\t/)[2];
  $addr =~ s/\s+//g;
  exit 0 if $mail_from =~ /$addr/i;
}
exit 1; 

##</code><code>##

:0
* ^From:\/.*
{
  :0:
  * ? echo $MATCH | /home/ajdelore/bin/check_addr.pl
  ${DEFAULT}
}