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