#ex_02-3 #Learning Perl Appendix A, Exercise 2.3 print "First number: "; chop($a = ); print "Second number: "; chop($b = ); $c = $a * $b; print "Answer is $c.\n";