What is stat.pl?

To list statistics from your maillog.txt file do the following:
Perl stat.pl maillog.txt
Your results should look something like this:
As of Thu Mar 27 10:48:54 2008 the mail logfile shows:
78843 messages, 47637 were spam (60.4%) in 73 days
 for 1080.0 messages per day or 652.6 spams per day
8303 additions to / verifications of the whitelist (113.7 per day)
28273 were judged spam by the bayesian filter (59.4% of spam)
18862 were to spam addresses (39.6% of spam)
502 were rejected for executable attachments (1% of spam)
12608 were sent from local clients (40.4% of nonspam)
7838 were from whitelisted addresses (25.1% of nonspam)
10760 were ok after a bayesian check (34.5% of nonspam)
14467 addresses are on the whitelist