Listing 3 Mail::Audit filter that bounces anything with a BCC: line in it

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

 my($msg) = new Mail::Audit;
 if( $msg-bcc ) {
 $msg-reject;
 }