#!/afs/athena/contrib/perl/perl

while (<>) {
    ($req,$foo,$mit) = unpack("a6a11a5", $_);
}

printf "%6d accesses (%5d from mit) on %s\n", $oreq, $omit, $odate;