sub StopCheck{
	$| = 1;
	print "\n" or die "STDOUT gone away";
}