Listing 1 - feedwatch.pl 

#!/usr/bin/perl
   # feedwatch.pl,v 1.12 2000-09-26 09:35:38-04 news Exp

# feedwatch - running count of total incoming feed stats

# a few handy things
   $KB = 1024;
   $MB = 1024 * 1024;

require "getopts.pl";
   Getopts("HL:Pi:d") || &Usage;

$HdrDef = 10;
   $UseInterval = $opt_i;
   $WantHdr = ( $opt_H ? 1 : 0 );
   if ( $opt_P ) {
   $WantHdr = 1;
   $HdrDef = 50;
   }
   $HdrLines = ( $opt_L ? $opt_L : $HdrDef );

# main read loop
   while (<>) {
   ($mon, $day, $time, $act, $feed, $MID, $rest) = split(" ", $_, 7);
   next unless m/ \d\d:\d\d:\d\d\.\d\d\d .*\n/;
   ($hour, $min, $sec) = split(/:/, $time);
   $logtime = $hour + $min/60 + $sec/3600;
   $token = "$hour$min";

 if ($UseInterval
   ? $Target == 0 || $logtime > $Target
   : $token ne $token_old
   ) {
   # decide if output really wanted
   if (($UseInterval ? defined $Target : defined $token_old)) {
   &print_stats;
   }
   $token_old = $token;
   $logtime_old = $logtime;
   $ofr = $acc = $can = $junk = $rej = $ref = $off = $accsize = 0;
   $first_sec = $sec;
   $Target = ( $Target ? $Target : $logtime ) + $UseInterval/3600;
   }
   ++$ofr;
   if ($act eq '+') {
   # accepted
   ++$acc;
   ($artsize, @dest) = split(" ", $rest);
   $accsize += $artsize;
   } elsif ($act eq 'j') {
   ++$junk;
   # correct, this shows up twice
   --$ofr;
   ($artsize, @dest) = split(" ", $rest);
   $accsize += $artsize;
   } elsif ($act eq 'c') {
   # cancel
   ++$can;
   } elsif ($act eq '-') {
   if ($rest =~ m/unwanted newsgroup/i) {
   ++$unw;
   } else { ++$ref }
   }
   }

&print_stats;
   exit 0;

sub print_stats
   {
   $et = 3600 * ($logtime - $logtime_old);

 # output header?
   if ($WantHdr && $lines++%$HdrLines == 0) {
   print "\f" if $opt_P && $lines > 1;
   print " <---------- arts ----------> tot offer accpt artKB avg K\n";
   print " time offer accpt junk cancl refu MB /sec /sec /sec size\n";
   }

 # decide on the time format
   if ($UseInterval) {
   $TimeFmt = "%06.3