#ex_08-2
#Learning Perl, Appendix A, Exercise 8.2
sub card { ...; } # from previous problem, Exercise 8.1
	print "Enter first number: ";
	chop($first = <STDIN>);
	print "Enter second number: ";
	chop($second = <STDIN>);
	$message = &card($first) . " plus " .
		&card($second) . " equals " .
		&card($first+$second) . ".\n";
	$message =~ s/^./\u$&/;
	print $message;