use strict;
use warnings;
use CGI qw/:standard/;
use Fcntl ':flock';

my ( @dataWrite, @dataRead );

open( my $in, "<", "../Rules1.txt" ) or die $!;
binmode $in;
flock($in, LOCK_SH);
@dataWrite = @dataRead = <$in>;
flock($in, LOCK_UN);
close $in;

push @dataWrite, "Code1\n";

open( my $out, ">", "../Rules1.txt" ) or dienice("Can't open counter.txt: $!");
binmode $out;
flock($out,LOCK_EX);
print $out @dataWrite;
flock($out,LOCK_UN);
close $out;

print "Content-type: text/html\n";
print("\n");