Listing 4 Mail::Audit script that does simple Viagra filtering and bounces

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

 my($msg) = new Mail::Audit;
 if( $msg-subject =~ /viagra/i ) {
 $msg-reject;
 }