Select Code to Download

open (FILE, "$file") || die "Error unable to open $file: $!\n";

my @array = <FILE>; close FILE;

open (WRITE, ">$file") || die "Error: Unable to open $file: $!\n";

...
}

close WRITE;