Write a Perl scr ipt count_word.pl which counts the number of times a specified word is found on in its input (STDIN). A word is as defined for the previous exercise. The word you should count will be specified as a command line argument.