sub add-one($n) {
    $n + 1;
}

add-one(3) == 4 or die "Wrong value";