seek( FH , 6 , SEEK_SET )
	or die "Could not seek: $!";
read( FH , $lines, 1 );
( $lines_1 ) = unpack ( "I" , $lines );
read( FH , $lines, 1 );
( $lines_2 ) = unpack ( "I" , $lines );
read( FH , $lines, 1 );
( $lines_3 ) = unpack ( "I" , $lines );
read( FH , $lines, 1 );
( $lines_4 ) = unpack ( "I" , $lines );