#!/usr/bin/perl

command;

while ($end_mb < 50000001) {

	commands;

	while (<PILEUP>) {
		commands;

		if ($start_kb <= $line_array[1] <= $end_kb) {
			commands;
			if ($line_array[2] eq "G" || $line_array[2] eq "C") {$gc_content++}
		} else {
			commands;
			if ($line_array[2] eq "G" || $line_array[2] eq "C") {$gc_content++}
			commands;
		}
	}
	commands;
}