|
#!/usr/local/bin/perl
print ("Enter a number:\n");
$number1 = <STDIN>;
chop ($number1);
print ("Enter another number:\n");
$number2 = <STDIN>;
chop ($number2);
if ($number1 == $number2) {
print ("The two numbers are equal.\n");
} elsif ($number1 == $number2 + 1) {
print ("The first number is greater by one.\n");
} elsif ($number1 + 1 == $number2) {
print ("The second number is greater by one.\n");
} else {
print ("The two numbers are not equal.\n");
}
print ("This is the last line of the program.\n");
|