sub MAIN ($num1, $num2) {
	say "sum is {$num1 + $num2}";
	say "difference is {$num1 - $num2}";
	say "product is {$num1 * $num2}";
	say "quotient is {$num1 / $num2}";
}