Select Code to Download

open my $in, '<:raw', $filename or die "Can't read $filename: $!\n";
if ($filename=~/\.gz$/) {
...
    chomp;
    # …
    @line{@headers}= split /\t/, decode('UTF-8' => $_);