use IO::Handle; 

local $| = 1;		# Buffer flushen

while(1)
{
	print "Kind laeuft!";
	sleep(1);
}