Listing 5 Mail::Audit script that does simple business opportunity filtering and bounces

 #!/usr/bin/perl
 use Mail::Audit;

 my($msg) = new Mail::Audit;
 if( $msg-subject =~ /business[ ]+opportunity/i ) {
 $msg-reject;
 }