Select Code to Download

#!/usr/bin/perl -w
use strict;
use Email::Filter;
my $mail = Email::Filter->new;
$mail->reject;

MAILDIR=$HOME/Mail
LOGFILE=$MAILDIR/from
...
##### filter with Mail::Audit
:0fw
| /home/embo/bin/filt

procmail: Program failure (100) of "/home/embo/bin/filt"
procmail: Rescue of unfiltered data succeeded
From adamm@localhost.localdomain  Sat Aug 14 21:30:22 2004
  Folder: /var/mail/embo                                              
+      658