--- BBSWatch.pm-orig	Fri Dec  5 19:55:20 2003
+++ BBSWatch.pm	Fri Dec  5 21:05:30 2003
@@ -68,6 +68,8 @@
 
 C<-MAIL>: The email address to send mail to
 
+C<-MDA>: Instead of using sendmail, pipe each message to the specified command
+
 C<-DB>: Basename of the database that keeps track of visited articles
 
 C<-WARN_TIMEOUT>: Number of seconds before warning message is sent
@@ -102,6 +104,10 @@
     max_articles    => $args{-MAX_ARTICLES} || 999999999,
     verbose         => $args{-VERBOSE} || 0,
   };
+
+  if ($args{-MDA}) {
+    MIME::Lite->send("sendmail", $args{-MDA});
+  }
 
   die "Must supply -BBS_URL" unless $self->{bbs_url};