while(<IN>) {
	if($. % 10000 == 0) {
		print "Now working on record $.\n";
	}
}