#!/usr/bin/perl

# written by Florian Buchholz
# May 2002
# Part of Honeynet Challenge

open FH, "procedures.txt";

while (<FH>) {
  chomp $_;
  $count{$_} = 0;
}

close FH;

open FH, $ARGV[0];

while (<FH>) {
  foreach $key (keys %count) {
    if (/$key/) {$count{$key} = $count{$key} + 1;}
  }
}

close FH;  

foreach $key (keys %count) {
    print "$key\t$count{$key}\n";
}