Sendmail delivery stats 1.4

Sendmail delivery stats is a Perl script to analyze Sendmail log files and produce mean delivery times. It dumps all data in CSV format.
Recently I had to bear with mail server analyze, serving traffic on level +10k messages a day. And there were some degradation of services felt by users, but there was no stright pattern what mails are delivered with bigger latency. Since this was Sendmail powered site I wrote simple tool in Perl to help with analysis.
I hope it is simple to use. What it does ? It collects all log entries, which are related to successful mail delivery. Groups it by domain and calculates average delivery time (time to leave queue - I is rather impossible to estimate time spend in others servers queues). Most useful (for me) is -a option, which makes all output in CSV format, for easy use in further analysis.
It was tested on logs from Sendmail 8.13.x and I belive it calculates proper values.
Enhancements:
- The HTML output format was added, with possible template use.
- Output is now sorted.
- Minor bugfixes and code cleanup were done.