use Square qw(square);
my $squared = square($hypotenuse);