Select Code to Download

my @data = map { chomp; $_ } <$fh>;

open my $write_fh, '<', 'temp.txt' or die $!;