Shell Programming and Scripting

sub cksum{
 my $word_count;
 my $bias=0;
 my $checksum=0;
 my $srcfile="../file.bin"; 
 my $buffer;
 
 open INF, $srcfile
    or die "\nCan't open $srcfile for reading: $!\n";
 print "Cannot open file.\n";
 binmode INF;
   
  $checksum = $bias;
  #while ($word_count>=0)
  while (
  read (INF, $buffer, 32) # read in (up to) 64k chunks, write
  #and print OUTF $buffer # exit if read or write fails
  ) 
  {$checksum = $checksum + $buffer}; #adding goes here
  $checksum = $checksum & 0xFFFFFFFF;
  print "This is the checksum: $checksum";
  }