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

$stats = '/afs/sipb/admin/office/stats/statsfile';

open(ST, $stats);

while(<ST>){
    next if !/stapler/;
    split(':::', $_);
    split(' ', $_[1]);
    $time = $_[3];
#    print("At $time\n");
    ($hour, $min, $sec) = split(':', $time);
#    print("Hour, $hour\n");
    $usage[int($hour)]++;
}

for $h (0..24){
    $ticks = '-' x $usage[$h];
    print("$h: $ticks $usage[$h]\n");
}