if (@ARGV < 2){
print "Usage: degrad.pl (r|d) value\n";
}
else{
print RadianDegrees(@ARGV), "\n";
}
sub RadianDegrees($$){
my ($do, $value) = @_;
my $PI = 3.14; # Число Пи

if ($do eq "d"){ # конвертация из радиан в градусы
$outVal = (180 / $PI) * $value;
}
elsif ($do eq "r"){ # конвертация из градусов в радианы
$outVal = ($PI / 180) * $value;
}
else{
$outVal = 0;
}