my $in;
    if ($filename=~/\.gz$/) {
        $in = new IO::Uncompress::Gunzip $in, { AutoClose => 1 };
    } else {
        open $in, '<:raw', $filename or die "Can't read $filename: $!\n";
    };
    binmode $in, ':utf8';