Select Code to Download

open (FILE, "somefile.txt") or die;
my @records = <FILE>;
close(FILE);

my @records;
open (FILE, "somefile.txt") or die;
...
   push @records, $_;
}
close(FILE);

my @records = split(/\r/,$records);