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