read( FH , $lines, 4 ); # Read 32 bits (4 Bytes) and store the data in $lines Size (4 Bytes Size).

##</code><code>##

     ( $lines_1, $lines_2, $lines_3, $lines_4 ) = unpack ( "I I I I" , $lines ); # (I) An unsigned integer.

##</code><code>##

read( FH , $lines, 16 ); # Read 4x 32 bits (4 Bytes) and store the data in $lines Size (16 Bytes Size).
     ( $lines_1, $lines_2, $lines_3, $lines_4 ) = unpack ( "I I I I" , $lines ); # (I I I I ) FOUR unsigned integer(S).