Select Code to Download

#! Perl -w
# hypo.pl -- find the hypotenuse
...
print "\tChoice: ";
chomp(my $choice = <STDIN>);
compute($choice);

#! Perl -w
# clhypo.pl -- Hypotenuse command line version
...
        $a = sqrt($c**2 - $b**2);
    print "A is $a";
}