#ex_09-1
#Learning Perl, Appendix A, Exercise 9.1
sub card {} # from previous exercise, 8.3
while () { ## NEW ##
		print "Enter first number: ";
		chop($first = <STDIN>);
		last if $first eq "end"; ## NEW ##

		print "Enter second number: ";
		chop($second = <STDIN>);
		last if $second eq "end"; ## NEW ##

		$message = &card($first) . " plus " .
			&card($second) . " equals " .
			&card($first+$second) . ".\n";
		$message =~ s/^./\u$&/;
		print $message;
} ## NEW ##