# /usr/local/bin/perl

# Print a weekly summary of email activity.  Written by Paul Vixie, DEC

$logdir = "/usr/spool/logs";
$secperday = 24 * 60 * 60;
$shortdelay = $secperday / 2;
$K = 1024;


format q_top =
Syslog    Input: (total)      (mail11)     Output Statistics:
File Date  Msgs Kbytes AvgSz  Sndrs Rcips   Sent AvgDelay Dferd Que'd Other