# print out history file offsets
dbmopen(%HIST, '/usr/lib/news/history', 0666);
while (($key,$val) = each %HIST) {
	print $key, ' = ', unpack('L', $val), "\n";
}
dbmclose(HIST);
