Shell Programming and Scripting

#!/usr/bin/perl -w

$food = " ";

while ( $food ne 'pizza' )
{
  print 'enter what you had last night: ';
  chomp ($food = <STDIN>);
  #print $food ; 
}

print "Mmm....it was yummy \n";

enter what you had last night: mango 
enter what you had last night: pizza 
enter what you had last night: tomato 
enter what you had last night: potato  
enter what you had last night:

print "<$food>";