#!/usr/bin/env perl
use strict;
use warnings;
use Math::Trig;
use Math::BigFloat;
use feature 'say';


my $pi =  Math::BigFloat->bpi(10);

my ($run,$theta) = (3,8);

my $radians = Math::BigFloat->new($theta * $pi / 180);

#my $rise = Math::BigFloat->new($run * tan($radians)); 
my $rise = Math::BigFloat->new($run * (sin($radians) / cos($radians)));

say "rise is $rise";

#rise is 0.42162250410717434055


##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;
my $pi = 355/113;
my ($run,$theta) = (3,8);

my $radians = $theta*$pi/180;
my $rise = $run * (sin($radians) / cos($radians));

say "rise is $rise";
#rise is 0.421622540378273