Listing 6 Mail::Audit script that does simple Viagra filtering in the text and body and forwards to a spam collector

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

 my($msg) = new Mail::Audit;
 if( $msg-subject =~ /Viagra/i || $msg-body =~/Viagra/i ) {
 $msg-resend('collector@spamcollector.com');
 }