sub include { use Fcntl qw{ :flock }; my $f_read = $_[0]; # Read in original book data open DATA, "<$f_read" or die ("Could read open $f_read. Reason: $!"); #flock (DATA, LOCK_EX) or die ("Can't get an exclusive lock on $f_read: $!"); read (DATA, my $data, -s DATA); close DATA; my @data_arr = $data; return @data_arr; }