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

##</code><code>##

MAILDIR=$HOME/Mail
LOGFILE=$MAILDIR/from
LOGABSTRACT=all
VERBOSE=off

##### backup every incoming email
:0 c
backup

##### filter with Mail::Audit
:0fw
| /home/embo/bin/filt

##</code><code>##

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