#!/usr/local/bin/perl
use Math::Trig;
print('programul efectueaza calculul: result=a1*cos(alpha)',"\n");
$PI=atan(1)*4.0;
print('a1= ');
$a1 = <STDIN>;
print('alpha= ');
$alpha = <STDIN>;
$result=$a1*cos($alpha*$PI/180);
print( 'result= ',$result,"\n",'press ENTER to EXIT');
$in = <STDIN>;