sub cksum{
  	my $word_count;
	my $bias=0;
	my $checksum=0;
	my $srcfile="../vxWorks.dsu_flt-rom.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)			#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";
		}