#!/usr/bin/perl -w
 #
 # Krümelmonster

 $ZAHL = 1;
 $kekse = "";


 while ( $kekse ne "KEKSE"x$ZAHL."E " x $ZAHL, ) {
   $ZAHL =++$ZAHL;
   print "Kruemelmonster: Ich will"." KEKSE"x$ZAHL."E" x $ZAHL, "!\n";
   chomp($kekse = <STDIN>);
 }

 print "Mmmm. $ZAHL KEKSE. :-)\n";



 exit;