Select Code to Download

#!/usr/bin/perl 

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

use CGI qw/:standard/;

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

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

undef @dataWrite;
undef @dataRead;

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

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

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

@dataWrite=@dataRead;

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