programming-examples/perl/Subroutine/Define subroutine then use it.pl

sub addem
{
    ($value1, $value2) = @_;
    $value1 + $value2;
}

$value = addem 2, 2;

print "2 + 2 = $value\n";