Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

#!/usr/bin/perl
my $now=time,$sec=0;$|=1; while(1){if($now!=time){$now=time;if($sec==360){print "KuckKuck"; $sec=0;}else{print "TickTack";}$sec++;}}