I jumped to reply without thinking. The warnings from perl said:

Found = in conditional, should be == at calc.pl
Found = in conditional, should be == at calc.pl
[download]