Select Code to Download

C:\Users\Fred\Desktop>perl fall1.pl
cos tau = - tan phi * tan delta
...
rhs is 0
tau is 1.5707963267949
degrees is 90

C:\Users\Fred\Desktop>type fall1.pl
#!/usr/bin/perl -w
...
say "tau is $tau";
my $degrees = rad2deg($tau);
say "degrees is $degrees";