#!/usr/local/bin/perl
#acest program citeste un text sau un numar de la tastatura
#si il scrie din nou pe consola
use Math::Trig;
$inputline = <STDIN>;
print( $inputline );
#apoi tipareste valoarea numarului PI folosind
#biblioteca Trigonometrica
$PI=atan(1)*4.0;
print('PI=',$PI,"\n");
#daca secventa alfanumerica introdusa a fost un numar
#face conversia acestuia din radiani in grade
#functia chop taie un caracter de la sfarsitul sirului introdus de la tastatura
#in acest caz codul tastei ENTER
chop ($inputline);
print($inputline,' [radiani] = ',$inputline*180/$PI, ' [grade]');
#si asteapta un ENTER pentru a termina executia
$in = <STDIN>;