11 lines
176 B
Perl
11 lines
176 B
Perl
|
sub addem
|
||
|
|
{
|
||
|
|
($value1, $value2) = @_;
|
||
|
|
if (!defined($value2)) {
|
||
|
|
$value2 = 1
|
||
|
|
};
|
||
|
|
print "$value1 + $value2 = " . ($value1 + $value2);
|
||
|
|
}
|
||
|
|
|
||
|
|
addem(2);
|