Subroutine Perl

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