#!/usr/bin/perl 

#************* File Header ******************************

##</code><code>##

use CGI qw/:standard/;

my @dataWrite;
my @dataRead;
my $x;

##</code><code>##

my (@dataWrite, @dataRead, $x);


##</code><code>##

undef @dataWrite;
undef @dataRead;

##</code><code>##

open (fileReadWrite,"../Rules1.txt");
my @dataRead = <fileReadWrite>;

##</code><code>##

open $fileReadWrite, '<', '../Rules1.txt'
  or die $!;


##</code><code>##

foreach my $value1 (@dataRead) {
    push @dataWrite , $value1;
}

##</code><code>##

@dataWrite=@dataRead;


##</code><code>##

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