2.1 Scalar

$answer = <STDIN>;

if ($answer eq "y") {
   # never comes here !
}


print $answer;

y