Select Code to Download

open my $fh1, "<:encoding(utf-8)","$tmpfile" or die "$tmpfile: $!";
while (<$fh1>) {
...
    push @names, split (/\n/);
}
$fh1->close;

use strict;
use warnings;
...
    push @names, $_;
}
close $fh1;