programming-examples/perl/Subroutine/Is a parameter defined.pl

sub addem
{
    ($value1, $value2) = @_;
    if (!defined($value2)) {
        $value2 = 1
    };
    print "$value1 + $value2 = " . ($value1 + $value2);
}

addem(2);