#!/usr/athena/bin/perl

# set defaults
$opt_f = "/usr/spool/mqueue/syslog";

while ($ARGV[0] =~ /^-/) 
   {
   $_ = shift;

   $opt_f = shift if /^-f/; # next param. should be name of file
   }

if ($opt_f !~ /\.Z$/ ) {open (LOG, $opt_f) || die "Could not open log file";}
else { open (LOG, "zcat $opt_f |") || die "Could not open log file";}
#open(LOG, $opt_f) || die "Could not open log file";

while (<LOG>) {
    if(/ Starting /) {
	$usage{$'} ++;
    }
} 

while (($key,$value) = each %usage) {
    $key =~ tr/\n//d;
    print "Program " . $key . " called " . $value . " time" . ($value==1 ? "" : "s") . "\n";
}