Select Code to Download

use warnings;   # it warns about undefined values
use strict;     # it's a lexically scoped declaration
...
close (FH) or die "Can not close file: $!\n";

$| = 1; #flushing output

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

This is the content of lines_0: 990183424
Use of uninitialized value $lines_1 in concatenation (.) or string at 
+test.pl line 63.
This is the content of lines_2:
Use of uninitialized value $lines_2 in concatenation (.) or string at 
+test.pl line 64.
This is the content of lines_3: 
Use of uninitialized value $lines_3 in concatenation (.) or string at 
+test.pl line 65.

Use of uninitialized value $lines_0 in concatenation (.) or string at 
+test.pl line 62.
This is the content of lines_0: 
Use of uninitialized value $lines_1 in concatenation (.) or string at 
+test.pl line 63.
...
This is the content of lines_2:
Use of uninitialized value $lines_3 in concatenation (.) or string at 
+test.pl line 65.
This is the content of lines_3: