use strict; use warnings; print "\n---------------Hipotenusa---------------\n"; print "\nInrese el valor del cateto 1\n"; my $cat_1 = <STDIN>; print "Ingrese el valor del cateto 2\n"; my $cat_2 = <STDIN>; print "\nLa hipotenusa es ="; print $cat_1**2 + $cat_2**2; print "\n"; exit;use strict; use warnings; print "\n---------------Hipotenusa---------------\n"; print "\nInrese el valor del cateto 1\n"; my $cat_1 = <STDIN>; print "Ingrese el valor del cateto 2\n"; my $cat_2 = <STDIN>; print "\nLa hipotenusa es ="; print $cat_1**2 + $cat_2**2; print "\n"; exit;