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