#/usr/local/bin/perl

while ($input ne 'cookie') {
	print "Give me a cookie: ";
	chomp $input = <STDIN>;
}
	if ($input = 'cookie') {
	print "Yum! \n"