10 lines
164 B
Perl
10 lines
164 B
Perl
|
sub addem
|
||
|
|
{
|
||
|
|
$value1 = shift;
|
||
|
|
$value2 = shift;
|
||
|
|
print "$value1 + $value2 = " . ($value1 + $value2) . "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
$value = addem 2, 2;
|
||
|
|
print $value;
|