The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

interface Calculator
{

	exception DivisionByZero { /* no member */ };

	long Add(in long val1, in long val2);

	long Sub(in long val1, in long val2);

	long Mul(in long val1, in long val2);

	long Div(in long val1, in long val2) raises (DivisionByZero);

};