##Open file - special case for gzip
    if ($input_file =~ /\.gz$/) {
        open(IN, "gunzip -c $input_file |") || die "can't open pipe to $input_file";
    }