10 lines
127 B
Perl
10 lines
127 B
Perl
|
use Math::RPN;
|
||
|
|
|
||
|
|
|
||
|
|
my $answer=rpn(0.MOD);
|
||
|
|
if (!defined($answer)){
|
||
|
|
print "SERVFAIL";
|
||
|
|
}else{
|
||
|
|
print "Answer: ". $answer."\n";
|
||
|
|
}
|