while (($n = read FILE, $buffer, 4))
 {
 
 $decimal = unpack("N", pack("B32", $buffer));

##</code><code>##

 $decimal = unpack 'N', $buffer;