anti-spam toy

In the aftermath of "Child XXX" I was thinking that it might be useful
to have some sort of early warning system to warn you when a major
(mail based) spam was under way. I did a bit of hacking and came up
with the attached Perl script. See what you make of it!

Have also been playing around a bit with front end harnesses, like
this...

#!/usr/local/bin/perl

# harness.pl - simple harness for stealth.pl
# martin hamilton <m.t.hamilton@???>

  for (;;) {
    print `stealth.pl </usr/local/exim/spool/log/mainlog`;
    sleep(1200);
    print "=" x 80, "\n";
  }

Cheerio,

Martin