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