#!/usr/bin/perl

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