#!/usr/bin/perl
#Program name: example4.pl
#  if statement
print("Enter a number: ");
$number = <STDIN>;
if ($number == 10)
{
  print ("That is the number I was thinking of.\n");
}
else
{
  print("You entered $number\n");
}