Hello Monks, I have this script here that is designed to read through a bin file 32 bits at a time and add each 32 bits to the checksum. however, whenever i run this script, the print is never returned. Am i doing something wrong? Also, is the & symbol used to restrain the read to 32 bits?

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";
        }
[download]

Thanks in advanced for your help.