diff --git a/tools/badconfigdetector/sendadminmail b/tools/badconfigdetector/sendadminmail
new file mode 100755
index 0000000000000000000000000000000000000000..a4745445629c018060bffe677bf87b145883ca6f
--- /dev/null
+++ b/tools/badconfigdetector/sendadminmail
@@ -0,0 +1,52 @@
+#!/usr/bin/perl -w
+# sendadminmail - given a file with a list of lists, send the list admins mail
+# taggart - 20200508
+# requires libemail-sender-perl
+
+use Email::Sender::Simple qw(sendmail);
+
+my $from='listmaster@lists.riseup.net';
+my $subject='Change in your lists.riseup.net list posting policy';
+
+if (!$ARGV[0]) {
+   print "usage: sendadminmail <file>\n";
+   exit;
+}
+
+$infile=$ARGV[0];
+open(IN, "$infile") or die "ERROR: cannot open $infile\n";
+   
+while (<IN>) {
+  chomp;
+
+  $list=$_;
+  
+  print "Sending to $list admin...\n";
+
+  $body= "Hi $list admins,
+
+FIXME
+
+Thanks,
+
+--
+Riseup Listmasters
+listadmins\@lists.riseup.net
+";
+
+  #&domail;
+  print "TESTING\n";
+  print "$body\n";
+}
+
+sub domail {
+  my $email = Email::Simple->create(
+    header => [
+      To      => "$list-admin@lists.riseup.net",
+      From    => $from,
+      Subject => $subject,
+    ],
+    body => $body,
+  );
+  sendmail($email);
+}