Select Code to Download

$filesenders = "z:/train/whitesenders.txt";
$fileaddrlist = "z:/Program Files/Mailsweeper for SMTP/Config/shared/a
+ddrlist.test";
...
print CONFIGWRITE "\n";
}
close CONFIGWRITE;

open (READ, "z:/test.txt") or die "unable to open file";

...
foreach (@array) {
  print $_;
}