$number  = 1;
 $cookies = "";


 while ( $cookies ne "COOKIES"x$number."S " x $number, ) {
   $number =++$number;
   print "Cookie monster: I want"." COOKIES"x$number."S" x $number, "!\n";
   chomp($cookies= <STDIN>);
 }

 print "Mmmm. $number COOKIES. :-)\n";



 exit;