#!/usr/bin/perl 
#
#[30.08.2007] : [1:21] 

use strict;
use warnings;

(@ARGV<1)?&baner:1;

open my $file, "<", $ARGV[0] or fatal_error("Can\'t open $ARGV[0]");
my $count = 0;
my $curr_word = undef;

foreach $curr_word (<$file>)  
{
  chomp($curr_word);
  if($curr_word=~/Sharky/m )
  {
     $count++;  
  }
}

printf "The word is found  %2d time \n",$count;

sub baner
{
   print "\t\tusage : $0 <file>\n\t\texample : $0 file.txt \n";
   exit;
}

sub fatal_error
{
   my @buf = @_;
   printf "ERROR : %s \n",@buf;
   exit;
}