#!/opt/exptools/perl/bin/perl
# may be get from line too, in case stacie wants to use it

open (A, "gunzip < bugs.html.gz |");
$res="";$start=0;$nlines=0;
while (<A>){
	if (/^\<HTML\>/){ $start=1;}
	if ($start) {
		if (/\"show\_bug\.cgi\?id\=(\d+)\"/){
			$bug = $1;
			if ($bugs{$bug} eq ""){
				print $bug ."\n";
			}
		}
		$nlines ++;
	}
}