Select Code to Download

my $in;
if( $filename =~ /\.gz$/ ) {
...
    open $in, '<:raw', $filename or die "Can't read $filename: $!\n";
};
binmode $fh, ':utf8';