#!/usr/bin/perl -w
################################################################
#
# Corpus Analysis and Programming, Homework #1.
#
# Source: PerlHTP, Exercise 2.7.
#
# Programmed by William Yeh, 2002/09/20.
#
################################################################


#
# prompt for 2 inputs
#

print "Please input the first number: ";
$number1 = <STDIN>;
chomp $number1;

print "Please input the second number: ";
$number2 = <STDIN>;
chomp $number2;

#
# compute the values
#

$sum      = $number1 + $number2;
$diff     = $number1 - $number2;
$product  = $number1 * $number2;
$quotient = $number1 / $number2;  # WARNING: possible divide-by-zero error!

#
# output
#

print "Results:\n";
print "\t$number1 + $number2 = $sum\n";
print "\t$number1 - $number2 = $diff\n";
print "\t$number1 * $number2 = $product\n";
print "\t$number1 / $number2 = $quotient\n";