sub addem;$value = addem 2, 2;print "2 + 2 = $value\n";sub addem{ ($value1, $value2) = @_; $value1 + $value2;}