#!/usr/bin/perl

use strict;
use diagnostics;
use warnings;

my $food = "ice cream";

print "This is a user input test.\n";
print "Please enter your text on the line below.\n";
print "Do you like $food?\n";
print "Input:";

my $line = <STDIN>;
chomp($line);
if ($line eq "yes\n") {
  print "I like $food too!\n";
} else {
  print "Our tastes clearly differ.\n";
}