#!/usr/bin/perl -w

#write a small code do the following....

#open file
#read in one line each
#test each line if contain a given patter
#if so, increment the the hash
#at the end, print out the has
#close the file
