#!/usr/local/bin/perl
$rad90 = °rees_to_radians(90);
$sin90 = sin($rad90);
$cos90 = cos($rad90);
print ("90 degrees:\nsine is $sin90\ncosine is $cos90\n");
sub degrees_to_radians {
local ($degrees) = @_;
local ($radians);
$radians = atan2(1,1) * $degrees / 45;
}