=************************************** = Name: Hypotenuse calculator = Description:The code calculates the length of the hypotenuse of a right triangle using the Pythagorean theorem. = By: Mike Smith = = = Inputs:None = = Returns:None = =Assumes:None = =Side Effects:None =************************************** #!/usr/bin/perl # Hypotenuse calculator print "Please enter the value of side a: "; $a = <STDIN>; print "Please enter the value of side b: "; $b = <STDIN>; $hypotenuse = sqrt($a * $a + $b * $b); print "The hypotenuse is $hypotenuse.\n";