print "The square of $answer is ", $answer * $answer, "\n";