#!/usr/local/bin/perl 

$rad90 = &degrees_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; 
}