#!/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